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NOTA DO EDITOR 


Durante muitos anos eminentes psicólogos 
polemicaram sobre um tema muito controvertido: a 
inteligência é fruto do ambiente (educação e meio 
familiar) ou depende de fatores genéticos (heredi- 
tar i edade )? 

Aparentemente os defensores da hereditarie- 
dade levaram a melhor: a inteligência parecia ser de- 
terminada basicamente pela herança genética do indi- 
víduo. Isto gerou uma perspectiva perigosamente racis- 
ta nos educadores: os indivíduos nasceriam jó predes- 
tinados a se tornarem gênios ou burros em função de 
seu "pedigree"! 

Uma crítica mais séria e científica das pes- 
quisas que geraram esta conclusão, porém, mostrou que 
elas se fundamentavam em resultados duvidosos ou até 
em fraudesi 

Modernamente determinou-se que existe sim uma 
influência genética mas que ela não é, de forma algu- 
ma, preponderante. Pelo contrário, a influência da e- 
ducação é fundamental no desenvolvimento da inteligên- 
cia i nd i V i dua I . 

O conceito racista, entretanto, está tão ar- 
raigado na cabeça dos educadores (e da população em 
geral) que o sistema escolar (principalmente no Bra- 
sil) não faz o m]nor esforço para desenvolver a capa- 
cidade intelectual dos jovens, limitando-se a abarro- 
tá-los de informações que são posteriormente cobradas 
da maneira a mais imbecil possível. 

Inteligência, portanto, é algo que pode (e 
devei) ser ensinado na escola. 

Mas como? 

Não podemos simplesmente introduzir no currí- 
culo escolar algo tão vago como "aulas de O.I."! 

Uma primeira medida seria melhorar a remune- 
ração do magistério de maneira a torná-lo uma carreira 
tão atraente quanto a de um médico, por exemplo. 

Para se ensinar inteligência há necessidade 
de pessoas inteligentes e não podemos exigir que pro- 
fissionais intelectualmente diferenciados se submetam 
à atual humilhação salarial que impera no magistério 
público e pr i vado . 

Uma segunda medida é a de se introduzir no 
currículo matérias que promovam este desenvolvimento. 
Antigamente este papel era feito pelo Latim, pela Ma- 
temática e pelo Xadrez. O Latim, ferramenta importan- 
tíssima no desenvolvimento da inteligência verbal, foi 
sumariamente extinto por imbecis que nunca entenderam 
sua real importância. Diga-se se passagem que para is- 
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so muito contribuiu o baixo nível de quem o ensinava. 

A Matemática foi ínteiramente deturpada pelo 
advento desta barbaridade chamada Matemática Moderna, 
mas ainda tem chance de voltar a exercer seu papel 
primordial, se seu ensino for completamente reestru- 
turado. Obviamente esta mudança deverá ser feita por 
pessoas inteligentes e não por burocratas obtusos. 

0 Xadrez, que tantos benefícios trouxe ao de- 
senvolvimento intelectual das criancas russas, por 
exemplo, deveria ser introduzido no currículo escolar 
(há propostas neste sentido no Brasil) se já não ti- 
vesse sido superado por um instrumento que o substi- 
tui com vantagens arrasadoras : o microcomputador. 

Enganam-se os que pensam que o microcomputa- 
dor é um instrumento educacional poderoso para se en- 
sinar computacãol Esta finalidade é um subproduto, e 
certamente não o mais importante, do seu uso por parte 
de criancas e jovens. Só quem interagiu com um micro- 
computador. desvendando seus mistérios, criando pro- 
gramas. usando "software” inteligente, sabe o quanto 
este instrumento é poderoso para o desenvolvimento do 
raciocínio e da inteligência. 

Se bem empregado e implantado, o microcompu- 
tador na escola brasileira pode se tornar o instrumen- 
to básico para a emancipação intelectual da atual ge- 
ração de jovens e criancas. 

é claro que ele poderá também se transformar 
num instrumento de "burr i f i cacão” e tortura se sua im- 
plantação for deixada nas mãos dos mesmos burocratas 
obtusos que já conseguiram imbecilizar algumas gera- 
ções de brasileiros. 

Porque dois países paupérrimos em recursos 
naturais como o Japão e a Itália estão entre as cinco 
economias mais desenvolvidas do mundo capitalista? 

A resposta é simples : olhem suas escolas' 
Esta é a melhor ( e talvez a única) saída para tirar o 
Brasil de seu atraso econômico e tecnológico. De nada 
adiantará, por exemplo, a política autoritária da SEI 
tentando desenvolver a tecnologia nacional por decre- 
to! A resposta está não no "software” dos computadores 
mas no dos cérebros dos que os usam. 

Este livro foi escrito por tres jovens bra- 
sileiros que escaparam do processo de ” imbec i I i zacão” 
e querem, de uma forma talvez tímida mas eficiente, 
estender a mão para milhares de outros jovens que de- 
sejam ter acesso a este mundo maravilhoso, não da in- 
formática. mas sim da inteligência! 


Prof. Pieriuigi Piazzi 
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PREFíSCIO 


Norma I mente o prefácio é a parte mais chata 
de se ler em um livro. Quase sempre escrito depois do 
livro pronto, apresenta a proposta do livro e uma sé- 
rie de outras baboseiras. Este prefácionão vai fugir 
à regra, mas passaremos algumas informações prelimina- 
res para que o livro não se torne mais chato que o 
prefácio. 

Tentamos com este livro transmitir a vocé. 
uma máquina de Von Neumann (quem leu a nota do editor 
do Aprofundando-se deve ter entendido), uma série de 
macetes nem sempre fáceis de desvendar. 

Partimos do pressuposto que o leitor deste 
livro já conheça, pelo menos, o "feijão com arroz” da 
Linguagem de Máquina e razoavelmente o sistema MSX. 

Alguns programas são exemplos bem didáticos e 
simples que não apresentam uma aplicação muito grande, 
pois são destinados apenas ao aprendizados a partir 
deles você poderá construir programas realmente úteis 
e complexos. Outros programas apresentam aplicações 
imediatas, como. por exemplo, os programas de cópia 
gráf i ca do Capí tu I o 3. 

Todos os programas foram escritos no Coral 
ASM versão 2.1. Para que você possa entendê-los me- 
lhor. adaptá-los ao seu compilador (que pode tranqui- 
lamente ser outro) ou se você não possui um compilador 
Assembly. dê uma olhada no Apêndice IV. 

Esperamos que você goste, aprenda e que prin- 
cipalmente utilize as informações deste livro, obti- 
das. às vezes, graças a muitas madrugadas "morcegando" 
na frente do computador. 

Finalizando, gostaríamos de agradecer a algu- 
mas pessoas que direta ou indiretamente nos deram uma 
força para escrever esse livro. 

Pi er I u i gi 
Renato 

Fernando Grossi 
Fernanda e Kaduoka 
Luís Alberto Castrucci 

Henr i que 
Mi I ton e 
Pau 1 0 
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A ESTRUTURA 
DO BASIC 


MSX 


Vamos analisar agora de uma maneira profunda 
a organização de um programa BASIC na memória do mi- 
cro. Normalmente a área de programa começa no endereço 
&H6001 e 0 byte &H8000 contém 00 para indicar ao In- 
terpretador que. a partir dali, pode começar uma linha 
em BASIC. 

Embora seja normalmente área de programa 
BASIC, esta configuração pode ser alterada mudando-se 
algumas variáveis do sistema, como veremos mais à 
frente . 

TOKENS 

Como você já deve saber, para cada palavra 
reservada do BASIC existe um código correspondente 
chamado de "token". O armazenamento de programas na 
forma de tokens é muito útil para a economia de memó- 
ria e de tempo. Afinal, o micro só tem que reconhecer 
um^ byte ao interpretar um programa e não toda a se- 
quência de códigos ASCII que o representaria. 

Vamos_ imaginar o armazenamento de um comando 
ou de uma função pelo seu código ASCII. Por exemplo, 
a I i nha em BASIC 

X==VARPTR(A> 

ficaria armazenada conforme mostra a figura 1.1 . 
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FIGURA i.i - Exeiplo de una linha BASIC no foriato ASCII 

58 X 
30 == 

56 V 
41. A 
52 R 
5» P 
54 T 
52 R 
28 < 

4Í A 
29 ) 

Sem contar o número de linha, um byte para 
dizer que a linha terminou e outras coisas mais. a li- 
nha exemplificada na figura 1.1 ocuparia 11 bytes. Com 
0 sistema de tokens .porém, ela estaria armazenada co- 
mo mostra a f igura 1.2 . 

FIGURA 1.2 - Linha hipotética tokenizada 

58 X 

EF token cio == 

E7 tokíen do VARPTR 
28 ( 

4i A 
29 ) 

Como você pode observar, a economia de memó- 
ria é notável em relação a uma linha armazenada no 
formato ASCII. Quanto à economia de tempo, imagine o 
trabalho realizado pelo Interpretador ao executar um 
programa: ter que comparar letra por letra da função 

VARPTR (que é uma das funções do BASIC de nome mais 
comprido) para depois descobrir que deve saltar para 
a rotina que executa o VARPTR propriamente dito. 

Com 0 sistema de tokens, o Interpretador já 
reconhece o &HE7 como a função VARPTR e salta para a 
rotina correspondente. 

A tabela da ROM que indica as palavras que 
pertencem ao BASIC MSX começa no endereço &H3A72 e vai 
até 0 endereço &H3D22. As palavras que começam pela 
mesma letra estão dispostas em grupos colocados em or- 
dem alfabética. Para demarcar uma separação entre os 
grupos existe um byte zerado. 

Há uma tabela de 26 elementos, que se inicia 
a partir do endereço &H3A3E que contém, na forma LSB 
e MSB, 0 endereço no qual se inicia cada um dos grupos 
de tokens que começam com uma determinada letra. Por 
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exemplo, o primeiro elemento ua tabela (bytes &H3A3E e 
&H3A3F) aponta para o endereço &H3A72, que é onde se 
inicia a tabela das palavras reservadas iniciadas 
com A. 

Já que todas as palavras de um mesmo grupo 
começam com a mesma letra, torna~se desnecessário ar~ 
mazenar a primeira letra de todas elas. Para indicar o 
fim dos códigos ASCII de uma determinada palavra, sua 
ültima letra estará sempre com o bit 7 setado, sendo 
que 0 byte seguinte indicará o código da token. A 
figura 1.3 mostra o armazenamento da função VARPTR na 
ROM do micro. 

FIGURA 1.3 - Amzenaiento da função VARPTR 


41 A 
52 R 
50 P 
54 T 

D2 R (com bit 7 setado) 
E7 código da TOKEN 


Vamos apresentar, na figura 1.4 um programa 
Assembly que. a partir dos códigos ASCII de uma pala- 
vra reservada do BASIC, obtém, a token correspondente, 
através de uma varredura da ROM. 


FIGURA l.A - Prograaa TOKEN 





ORG 

OCOOOH 


•0B4 


QINLINiEQU 

OOB4H 


00A2 


CHPUTx 

EOU 

OOA2H 


C000 

CDB 400 


CALL 

QINLIN 

XRECEBE PALAURA 

C003 

23 


INC 

HL 

fAPONTA P/ IBLETRA 

C004 

7E 


LD 

A r c HL > 

|A CONTEM 10 LETRA 

coes 

23 


INC 

ML 

?APONTA P/21 LETRA 

ceoá 

228áCO 


LD 

(PALAUR ) ,HL 

f GUARDA END QUE APONTA 
? PARA 21 LETRA 

ceo9 

D641 


SUB 

'A ' 

fLOCALIZA ENDEREÇO 

ceoB 

B7 


ADD 

A» A 

pQUE APONTA PARA 

ceec 

0600 


LD 

B,0 

fO BLOCO DE PALAVRAS 

ceoE 

4F 


LD 

C,A 

PRESERVADAS INICIADAS 

ceoF 

Í13E3A 


LD 

DEr3A3EH 

PCOM A MESMA LETRA. 

cei 2 

EB 


EX 

DE, HL 

P 

cei3 

09 


ADD 

HL, BC 

P 

C0i4 

EB 


EX 

DE, HL 

f 

C015 

lA 


LD 

A, <DE> 

pFAZ DE APONTAR P/ 

COIÓ 

4F 


LD 

C,A 

pBLOCO DE PALAVRAS 

C017 

13 


INC 

DE 

PRESERVADAS INICI 

ceie 

lA 


LD 

A, (DE> 

pADAS COM A MESMA 

C019 

57 


LD 

D, A 

p LETRA. 

COiA 

59 


LD 

E,C 

p 

ceiB 


LOOPt 



P 

ceiB 

IA 


LD 

A, <DE> 

pPEGA LETRA DA TABELA 
1 NA ROM 

coic 

FEOO 


CP 

O 

pVERIFICA SE E FIM 
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fOE BLOCO 


ceiE 

2843 


JR 

ZrERRO 

iSE AFIRM. SALTA 
«PARA ERRO 

co2e 

CBBF 


RES 

7, A 

sRESSETA O BIT 7. 

C022 

BE 


CP 

<HL> 

ICOHPARA COM LETRA DA 
SPALAURA A SER 
fPESQUISADA. 

C023 

2009 


JR 

NZ^PROXPA 

SSE <> SALTA P/ PROXPA. 

ce2S 

IA 


LD 

A , ( DE > 

SUERIFICA SE E 

C026 

CB 7F 


BIT 

7rA 

SFINAL DE PALAURA 

C028 

2013 


JR 

NZ,IMPTKN 

SSE FOR SALTA P/ IMPTKN. 

C02A 

23 


INC 

HL 

i INCREMENTA HL E DE. 

C02B 

13 


INC 

DE 

fP/ COMPARAR PROX LETRA 

C02C 

C02E 

10ED 

PROXPAS 

JR 

LOOP 

p EFETUA LOOP. 

C02E 

2A8ÀC0 


LD 

HL, (PALAVR> 

pHL APONTA P/ 2B 

C03Í 

IA 


LD 

A, <DE) 

pLETRA E DE 

C032 

CB7F 


BIT 

7, A 

p APONTA PARA 

C034 

2804 


JR 

Z, PROC 

pPROXIMA PALAURA 

C036 

13 


INC 

DE 

pRESERUAOA. 

C037 

13 


INC 

DE 

P 

C038 

18E1 


JR 

LOOP 

P 

C03A 


PROCs 



t 

C03A 

13 


INC 

DE 

P 

C03B 

18F1 


JR 

PROXPA 

P 

C03O 


IMPTKNi 



P 

C03D 

13 


INC 

DE 

p APONTA DE P/ TOKEN. 

C03E 

IA 


LD 

A, (DE> 

p CARREGA A COM TOKEN. 

C03F 

EÀF0 


ANO 

11110000B 

pPEGA IS NIBBLE. 

C041 

IF 


RRA 


pROTACIONA 

C042 

IF 


RRA 


pBITS. 

C043 

IF 


RRA 


P 

C044 

IF 


RRA 


P 

C045 

Cá30 


AOD 

A,30H 

pSOMA 30H PARA A CONTER 
pO COOIGO DO Nfi 

C047 

FE3A 


CP 

3AH 

PUERIFICA SE ■ LETRA. 

C049 

3802 


JR 

C,IMPNIB 

pSE NAO, IMPRIME. 

C04B 

CÁ07 


AOD 

A, 7 

pSOMA 7 P/ A CONTER 
PCODIGO DE LETRA 

C04D 


IMPNIBs 


P 

C04D 

CDA200 


CALL 

CHPUT 

pIMPRIME DIGITO. 

C0S0 

lA 


LD 

A, (DE> 

pPEQA COO TOKEN. 

C0S1 

E60F 


ANO 

00001 lllB 

pPEOA 29 NIBBLE. 

C053 

CÓ30 


ADD 

A.30H 

pSOMA 30H PARA A CONTER 
pO CODIGO DO NQ 

C0S5 

FE3A 


CP 

3AH 

pUERIFICA ú LETRA. 

C057 

3802 


JR 

C, IMP2NI 

pSE NAO IMPRIME 

C059 

C607 


ADD 

A, 7 

pSOMA 7 P7 A CONTER 
pO CODIGO DO N9 

C0SB 


IHP2NI 1 



C05B 

COA200 


CALL 

CHPUT 

pIMPRIME DIGITO. 

C0SE 

00 


NOP 


pFUTURA EXPANSAO. 

C05F 

00 


NOP 


PFUTURA EXPANSAO. 

C060 

00 


NOP 


pFUTURA EXPANSAO. 

C0Ó1 

00 


NOP 


pFUTURA EXPANSAO. 

C0Ó2 

C9 


RET 


pRETORNA AO BASIC. 

C063 

C0Á3 

0Ó1^ 

ERROS 

LD 

B,21 

pCASO TOKEN NAO 

C0À5 

2170C0 


LO 

HL , MCNS 

P ENCONTRADA, 

C068 

C068 

7E 

LOOP2S 

LD 

A , ( HL > 

pIMPRIME MENSAGEM 

C069 

CDA200 


CALL 

CHPUT 

pDE ERRO. 

C06C 

23 


INC 

HL 

P 

C06D 

10F9 


DJNZ 

LOOP2 

P 

C0ÓF 

C9 


RET 



C070 

50414C41 

HENSs 

DEFB 

'PALAURA NAO 

RESERUAOA ' 

C074 

56S24120 





C078 

4E414F20 





C07C 

524S534S 





C080 

S2564144 





C084 

41 





C08S 

00 

TOKENs 

DEFB 

0 


C086 

0000 

PALAOR sDEFU 

0 


C088 



END 
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TOKEN DE FUNCaO 

Quando a palavra reservada não corresponde a 
um comando, mas sim a uma função, ela recebe um trata- 
mento especial: 

Se você notar bem, a maioria das tokens de 
função apresentam o seu código entre 1 e ^6. Em uma 
linha de programa, essas funções não estão armazenadas 
apenas com a token da tabela de palavras reservadas; 
elas são precedidas de um byte contendo &HFF, sendo 
que também o bit 7 do byte da token fica setado. 

Ou seja, 0 código que você obtem na tabela 
não é imediatamente o código que está armazenado num 
programa. Para obtê-lo você terá que setar o bit 7 (ou 
somar &H80). Vejamos um exemplo na figura 1.5 . 

FIGURA 1.5 - Linha de prograaa coi token de função 

Í0 PRINT SIN<A) 

xx-iepl < enidereço da próxima linha) 

>w*í ^ 

00 n 1 (número da linha) 

0AJ 

91 PRINT 

FF identificador de funcao 
89 token do SIN 
28 ( 

41 A 
29 ) 

00 fl (fim de linha) 

Ao consultarmos a tabela da ROM, constatamos 
que 0 código da token da função SIN é 69, e subtraindo 
&H86 do &H8S (ou resetando o bit 7 desse byte) obtemos 
0 mesmo código. 


ESTRUTURA DE UMA LINHA DE PROGRAMA 

A maneira pela qual o micro armazena uma li- 
nha de programa é bastante simples; 

-Os dois primeiros bytes contém o endereço da 
próxima li nha . 

-Os dois bytes seguintes representam na forma 
LSB e MSB 0 número da linha, é por isso que uma linha 
só pode ter um número entre 0 e 65529. 

-A partir desse byte podem existir mais 254 
bytes para os comandos do BASIC, e para indicar o fi- 
nal da linha existe um byte zerado. A figura 1.6 mos- 
tra a estrutura de uma linha "simples" de BASIC. 
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FIGURA i.ó - Exeiplo de uia linha BASIC 


i0 PRINT A 


<^9 , eíp 1 
80 ‘ 

0A 1 n 1 
00 ^ 

9í PRINT 
4í A 
00 fl 

00] fim de programa 
00 

É importante ressaltar que ao final de um 
programa BASIC existem dois bytes zerados, indicando 
para o interpretador que o programa termina nesse pon- 
to. 

ESCONDENDO LINHAS 

Você pode esconder uma linha de programa do 
LIST. bastando para isso alterar seu epi (endereço da 
próxima linha ). fazendo-o apontar para o início (epi) 
da próxima linha que você quer que apareça. 

Vejamos o programa exemplo da figura 1.7 . 

FIGURA Í.7 - Exetplo de prograaa BASIC 

Í0 A=0 

20 PRINT"E;U estou AOUIM!" 

30 PRINT"MAS NSO APAREÇO NA LISTAGEM" 

40 LIST 


Com um dump da área de programa, você obteria 
os dados da figura 1 .8 . 

Suponhamos que você queira esconder as linhas 
e 30 do programa. 

-Para isso. vamos alterar o epi (endereço da 
próxima linha) da linha 10. fazendo-o apontar para o 
início da linha 40 que é a primeira linha que aparece- 
rá depois daquelas escondidas. 

-Usando um monitor, vamos alterar o byte 
&H8001 de &H0A para &H45. Agora o epi da linha 10 
aponta para a I i nha 40. 

-Execute o programa com um RUN ou um GOTO 10. 
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FIGURA 1.8 - Duip de leióría 


8000 

00 

0A 

80 

,0A, 

u u a M 

8004 

001 41 

EF 

0F 

.A.. . 

8008 

0A 

00 I 

122 

80 f 

/✓ 

a a m 

800 C 

|14 

001 91 

22 

// 

N a a 

80 Í0 

45 

55 

20 

45 

EU E 

8014 

53 

54 

4F 

55 

STOU 

8018 

20 

41 

51 

55 

AQÜ 

80 IC 

49 

21 

21 

21 

I ! ! ! 

8020 

22 

00 145 801 

// p- 

tt M 

8024 

iie: 

001 91 



8028 

4 D 

41 

53 

20 

MA8 

802C 

4E 

B0 

4F 

20 

NòO 

8030 

41 

50 

41 

52 

APAR 

8034 

45 

80 

4F 

20 

E.O 

8038 

4E 

41 

20 

4c: 

NA L. 

803C 

49 

53 

54 

41 

:i:sTA 

8040 

47 

45 

41) 

22 

GEM" 

8044 

00 i4B 

801128 

.K . ( 

8048 

001 93 iM_ 

00 

a N a M 

804 C 

Mx 






ep I da linha 19 

número da linha 10 
ep I da I j nha 29 

número da linha 20 


ep I da I i nha 39 
número da I i nha 30 


ep I da I i nha ^0 
número da I i nha <10 
Fim de Programa 


Você verá que as linhas 29 e 39 são executa- 
das mas não aparecem na listagem. 

Quando o programa é executado, as linhas 29 e 
30 são executadas normalmente, pois durante a execução 
0 Interpretador não consulta o epi das linhas do pro- 
grama. Mas quando certos comandos como o LIST. LLIST 
ou 0 SAVE (para programas em ASCII ) por exemplo são 
executados, o epi das linhas é consultado e elas não 
são notadas pelo Interpretador. 

As linhas 20 e 39 podem, facilmente voltar a 
aparecer. Basta inserir uma linha com numeração infe- 
rior às que foram escondidas, pois ao fazer isso o 
sistema operacional reajusta todos os epi do programa. 


TRATAMENTO DE NüMEROS 

Assim como o BASIC MSX guarda as palavras re- 
servadas na forma de tokens (para ocupar menos espaço 
e^ economizar tempo de processamento) também guarda os 
números de uma maneira toda especial. 
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0 BASIC permite 3 tipos de variáveis numéri- 

C 3 S : 

1) As inteiras representadas pelo simbolo 
(por cento) após o nome da variável ou pela função 
DEFINT. às quais podemos atribuir valores inteiros na 
faixa de -32768 a 32767, e que ocupam apenas dois by- 
tes de memór i a . 

2) As de simples precisão, identificadas pelo 
ponto de exclamação (!) ou pelo comando DEFSNG. Elas 
podem assumir valores de até seis dígitos, com um ex- 
poente que vai de -64 a +62, ocupando 4 bytes de memó- 
ria. 


3) As de dupla precisão, representadas pelo 
"number" (*) ou pelo comando OEFDBL. Elas podem repre- 
sentar números de até 14 dígitos com um expoente de 
-64 a +62, consumindo oito bytes de memória (a menos 
que você esteja realizando cálculos altamente precisos 
isto pode representar um desperdício!). 

Se você não definir no seu programa se as va- 
riáveis serão inteiras, simples ou duplas, o Interpre- 
tador assumirá todas como sendo de dupla precisão. 


NÜMEROS EM LINHAS DE PROGRAMAS 

Quando uma linha é digitada, o BASIC não se 
preocupa em saber se a variável é inteira, simples ou 
dupla. O armazenamento do número na linha é feito de 
forma a economizar o máximo possível de memória, numa 
espécie de "token i zação” dos números na memória; ou 
seja. tal qual as palavras reservadas do BASIC, nem 
sempre o que você vê na tela do micro com um LIST é 
realmente, o que está na memória. 


REFERÊNCIA A LINHAS 

Durante a "tokenização" de uma linha, todos 
os números que se referem à linhas de programa são ar- 
mazenados de duas maneiras. Por exemplo, a linha 

.10 (30T0 20000 

Quando digitada será armazenada como mostra a 
figura 1 .9. 
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FIGURA 1.9 - Tokenisaçâo de ui nuBcro 


XK ^ epl < encler 6^ç:o da próxima linha) 

00 , n 1 ( n úmer o da 1 i n h a ) 

0A J 

89 GOTO 
20 "eíspacio" 

0E: i d 

20 , numero (LSB e MSB) 

4Eí; J 
00 -fl 

0 byte contendo um &H0E (id) serve para indi- 
car que os dois bytes a seguir se referem a uma linha 
de programa e estão armazenados na forma LSB e MSB. 

Quando a linha for executada pela primeira 
vez . 0 Interpretador alterará o byte de identificação 
para &H0D e os dois bytes seguintes conterão o ende- 
reço de início da linha em questão. Isto é feito para 
agilizar a execução nas próximas vezes. Essa técnica 
de atualização e otimização dos números referentes a 
linhas de programas é conhecida como Apontadores Pro- 
gressivos. 


TRATAMENTO DE NüMEROS INTEIROS 

Os números inteiros possuem um armazenamento 
bastante peculiar, que é dividido em trgs estágios 
distintos: 

* Números inteiros entre 0 e 9 

» Números inteiros entre 10 e 255 

* Números inteiros entre 256 e 32767 

Vamos analisar a seguinte linha de programa. 

10 A=5 

Examinando os bytes na memória do micro tere- 
mos os dados da figura 1.10 

0 Interpretador reconhece o byte com &H16 
como sendo o "5". Esse byte é uma espécie de token 
para armazenar um número de um dígito. Os números de 
um dígito e suas respectivas tokens estão listados 
na f i gura 1 . 1 1 . 

Os números negativos são precedidos pela 
token do que é o &HF2. Vejamos, na figura 1.12 . 

como ficaria a mesma linha se quiséssemos armazenar 
número -5. 
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FIGURA i.i0 - Duip de uu linha de progran 

XX ,ep 1 
XX ^ 

00 , n 1 
0A^ 

Aí A 
EF =" 

1.6 token do 5 
00 f 1 


FIGURA i.ii - Tokens para núieros de ua dígito 


TOKEN 

DÍGITO 

TOKEN 

DÍGITO 

&H1 1 

0 

&H1 6 

5 

&H 1 a 

1 

&H17 

6 

&H1 3 

a 

&H18 

7 

&H14 

3 

&H1 g 

8 

&H15 

4 

8.H1 A 

9 


FIGURA i.i2 - Duip de uia linha'de prograaa 

XX 1 

00 , n I 
0A J 
41. A 
EF 

F'2 token do - 
íó token do 5 
00 fl 


Vejamos agora como o micro armazena um número 
entre 10 e 255 . 

Para reconhecer que determinado número está 
nessa faixa, o micro coloca um byte de identificação, 
que no caso é o &H0F. Vamos analisar uma linha que 
apresente tal armazenamento: 

Í0 S=30 


A figura 1.13 mostra mais detalhadamente, a 
forma de armazenamento da linha: 
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FIGURA i.l3 - Ouip de uia linha de prograia 


i 


>r ,< , ep 1 
x>i ‘ 

«•0, nl 

53 S 
EF" =:= 

0F id 
2E 30 
00 fl 


Como você pode notar, o &H3E é 30 em decimal, 
e isso se repete para os demais bytes até 255. 

Os números inteiros restantes, que vão de 256 
a 32767 possuem outra forma de armazenamento. Existe 
também um bytede identificação (&H1C) precedendo os 
bytes que compõem o número. O número em si é armazena- 
do em dois bytes, na forma LSB e MSB (ou parte baixa e 
parte alta) Por exemplo, a linha de programa; 

Í0 X-í 23-45 

é armazenada como mostra a figura 1.14 ; 
FIGURA 1.Í4 - Araazcnaaento de ua núaero na foraa inteira 
x>!^ ep 1 
00, nl 

0aJ 

58 X 
EF == 

ÍC id 

30 48«256-í2288 

39 57»í = 57 Í2288+57=Í2345 

00 f l 


NÚMEROS EM SIMPLES PRECIS20 

Em uma linha de programa, os números que pos- 
suírem de uma a seis casas decimais, ou forem maiores 
que_32767 serão armazenados no formato de simples pre- 
cisão, 0 qual ocupa cinco bytes. O primeiro é um byte 
de identificação da forma de armazenamento do número, 
que no caso conterá &H10. O segundo byte indica o ex- 
poente, e os três bytes seguintes armazenam os dígitos 
do número. 
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Por exemp lo. a lí nha 

Í0 MA==í. 23456 

estará na memória como mostra a figura 1.15 < 
FIGURA l.iS - Araazenaiento n síaples precisão 


le é &H12 
e 2 ! 1 1 


Kx 1 ep> 1 

XX •' 

<ò<ò. 

nl 

4D 

M 

4í 

A 

EF 

ss 

ÍD 

i d 

4í 

byte de expoente 

Í2i 
34 
56 J 

d í g i t os 

m 


Repare 

0 primeiro byte do dígito 

e os 

dois primeiros dígitos do 


O valor de- 


Na hora de armazenar a tinha, o Interpretador 
transforma o código ASCII do primeiro dígito no pró- 
prio número e. como estamos lidando com números deci- 
mais. um dígito só vai de zero a nove ( que em binário 
vai do &B«eee a &Bieei ). 

Note que o maior dígito que temos é o nove 
(&H1001 ). que só ocupa quatro bits. Então, por que não 
colocar dois dígitos (cada um ocupando quatro bits) em 
apenas um byte. 

Assim 0 primero "níbble" (conjunto de quatro 
bits) representa o primeiro dígito, o segundo 
"nibble” o segundo dígito, e assim sucessí vamente até 
0 término do número (e dos três bytes). 


NÜMEROS EH DUPLA PRECISSO 

O armazenamento de um número que possua mais 
de 6 dígitos é feito em dupla precisão. O sistema de 
armazenamento na linha de programa é igual ao de sim- 
ples precisão. As únicas diferenças são o byte de 
identificação (que no caso é o &H1F) e o número de 
bytes para armazenar dois dígitos, que agora são sete. 
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Vejamos, na figura 1.16 , como é armazenado o 

número: 


Í0 PI=3. Í4Í592657 


FIGURA i.ii - Araazenaaento ea dupla precisão 


XK ep 1 
XX 1 


00, nl 

0A J 


50 

49 

EF 

ÍF 

4í 


P 
I 

í d 
byte 


de 


3ÍTd íg i toB 


4i 

59 

26 

57 

00 -< 

00 fl 


expoente 


BYTE DE EXPOENTE 

Quando foram criados os M3X, resolveu~se que 
apenas um byte seria dedicado ao armazenamento do 
expoente. Esse byte teria que dizer também se o número 
é positivo ou negativo, por isso seu bit sete foi re- 
servado para dizer o sinal do número. 

Com isso restam sete bits (0-6), o que repre- 
senta 128 posições (0-127) para indicar um expoente 
que pode ser positivo ou negativo. 

Vamos dividir por dois es^as 128 posições, 
(metade para os expoentes negativo^ e metade para os 
expoentes positivos). 

Levando em consideração só os sete primeiros 
bits do byte de expoente, a organização ficaria da se- 
gu i nte maneira: 

&H01-&H3F - Expoente negativo (-63 a -1) 
&H40-&H7F - Expoente positivo (0 a 63) 

Depois de ler tudo isso, você pensa: 

Se 0 byte de expoente pode representar 64 ex- 
poentes diferentes, como é que o expoente máximo que 
eu consigo representar no meu micro é 62 ? 
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0 que acontece é que, quando o micro imprime 
um número em simples ou dupla precisão, se ele ocupar 
mais de 13 dígitos, ele é impresso em notação cientí- 
fica e neste caso aparece o expoente na impressão. Um 
número em notação científica apresenta sempre o prime- 
ro dígito como um inteiro, e os dígitos restantes são 
colocados depois do ponto. 

0 número que você retira do byte de expoente 
não é igual ao expoente de um número em notação cien- 
tífica, embora o micro assim os imprima. O Interpreta- 
dor considera como se todos os dígitos estivessem à 
direita do ponto. Por exemplo, o número 

.05 

é representado em notação científica como 

5E-2 

mas. na notação interna do micro, o mesmo número esta- 
ria da seguinte forma: 

.5E-1 

Então, quando o micro imprime um expoente 62, 
na sua notação interna o expoente é 63. 

A mesma coisa acontece com os números de ex- 
poente negativo. Enquanto você vê no vídeo um número 
do tipo 3.14984E-64, 0 expoente está armazenado como 
se ele estivesse na forma .314984-63. 

Note que, com esse tipo de notação o número 
.5 possui 0 expoente zero que está no grupo dos expo- 
entes positivos, enquanto que em notação científica 
ele possuiria um expoente negativo (-1). 

Embora isso só aconteça na área de variáveis, 
quando o byte de expoente está zerado o Interpretador 
assume o valor da variável como sendo zero, mas os by- 
tes que indicam os algarismos não são destruídos. 


NÚMEROS EM OUTRAS BASES 

Em uma linha de programa um número também po- 
de estar nas bases hexadecimal, binária ou octal. O 
Interpretador também possui uma maneira especial de 
armazenar esses números. 

Vejamos seguinte linha de programa: 

i 0 A = « H A 0 2 3 íi B i. 0 i 0 & H 3 7 
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Seu armazenamento "tokenlzado” na memória está 
mostrado pela figura 1.17 

FIGURA 1.17 - Unha de prograna coa miaero ea outras bases 

XX, epl 

00, nl 

0A i 

41 A 

EF token do = 

0C id hexadecimal 

23-, número (LSB e HSB ) 

A0 J 

Fí token do + 

2Ó & 

42 B 

31 1 

30 0 

31 -1 

30 0 

F1 + 

0B id octal 

IF-i número (LSB e MSB) 

00 J 

00 f 1 


Note que existe um byte de identificação pa- 
ra os números em hexadecimal (&H6C) e outro para os 
números octais (&H0B). 0 valor dos números em si é ar- 
mazenado na forma LSB e MSB. 

Já os números binários são armazenados no 
formato ASCII, e os caracteres ”8i” e "B" já servem 
como bytes de identificação dessa forma de armazena- 
mento. 


^REA DE VARIAVEIS 

Há uma área na memória do micro que é reser- 
vada para o armazenamento das variáveis de um programa 
BASIC. 0 início dessa área é dado pela variável do 
sistema VARTAB (&HF8CS), e normalmente aponta para o 
final do seu programa BASIC. Uma outra variável de 
sistema, a STRENO (&HF6C6), indica o final dessa área. 
Sempre que uma variável do BASIC é consultada, o In- 
terpretador vasculha a área de memória delimitada por 
VARTAB e STRENO e, se a variável não estiver definida 
naquela área, o Interpretador assume o seu valor como 
sendo zero (variáveis numéricas) ou uma string vazia. 
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0 valor da STREND se iguala ao da VARTAB 
sempre que uma uma nova linha BASIC é introduzida no 
seu programa. Devido a esse fato. quando uma linha de 
programa é introduzida, todos os valores de variáveis 
que vocl tenha armazenado são perdidos. 

Existem quatro tipos de variáveis que são ar- 
mazenadas nessa área. 

São elas: 


i nte i ras 
str i ngs 

precisão simples 
precisão dupla 


ocupam S bytes 
ocupam 3 bytes 
ocupam ^ bytes 
ocupam 8 bytes 


Uma variável possui a sintaxe de armazenamen- 
to apresentada na figura 1.18 . 

FIGURA i.i8 - Fona de anazenanento de variáveis 


XX yy yywwwwwwwvrwwwwwwww 

L de 2 a 8 bytes para armazenar dados 

— 3 bytes para o nome 

— 1 byte para o tipo de variável 


O primeiro byte indica o tipo de variável que 
está armazenada, e o seu código também já indica em 
quantos bytes estão armazenados os dígitos. 

Por exemplo, se o primeiro byte contiver o 
valor 3. saberemos que a variável é inteira e que o 
seu valor está armazenado em dois bytes. 

As variáveis vão sendo armazenadas à medida 
em que forem sendo definidas pelo programa. 

O micro assume como default. para as variá- 
veis sem os indicadores de tipo (%.♦.!). o armazena- 
mento em dupla precisão. Isso sem se importar com o 
valor da variável em si. Se o seu programa não possuir 
cálculos altamente precisos (como um programa de as- 
tronomia por exemplo) é melhor utilizar variáveis in- 
teiras. que são processadas mais rápidamente e ocupam 
menos memória. Você pode selecionar através das fun- 
ções DEFINT. DEFSNG e OEFDBL. 0 tipo davariável que 
começa com uma determinada letra. Assim não haverá ne- 
cessidade de colocar, após cada variável, o indicador 
de tipo. 

Os comandos DEFINT. DEFSTR. DEFSNG e DEFDBL 
alteram uma tabela que tem início no endereço &HF6CA 
(DEFTBL). a qual possui 26 elementos, um para cada le- 
tra do alfabeto. 
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Cada elemento indica o tipo de uma variável 
sem indicador de tipo que foi encontrada no programa 
durante a execução. 

Para cada tipo de variável, o elemento pode 
assumir os seguintes valores> 

05 inteira 

03 string 

0^ simples 

06 dupla 

Quando é consultado ou alterado o valor de u- 
ma variável que não apresenta indicador de tipo. o In- 
terpretador consulta a tabela para saber qual o tipo 
que deve assumir para aquela variável. 

Por exemplo, você pode ter três variáveis 
chamadas AB . uma de cada tipo. 

Se 0 primeiro elemento da tabela OEFTBL for 6 
(que é default) você só poderá acessar os valores das 
variáveis AB inteira, de precisão simples e strings se 
forem usados os indicadores de tipo logo após o nome 
da var i áve I . 

Digite os comandos: 


my.~7<ò 

AB I-53.56 

ABtt=30- 56776529.1456 
AB!li="AB" 


0 valor do primeiro elemento da OEFTBL é B. 
portanto se você comandar 

PRINT AB 

como resultado você obterá: 
30.567765291456 
Agora comande: 

POKE &HF6CA,2 

e imprima o valor da variável AB com o comando 
PRINT AB 

Você obteve como resultado: 

70 


25 



Quando o POKE foi executado, houve alteração 
no valor do primeiro elemento da tabela DEFTBL. que 
indica o tipo de todas as variáveis que começam com 
a letra A e foram usadas sem o respectivo indicador de 
tipo. Como 0 valor "pokeado" foi S, foi impresso o 
valor da variável inteira. 

Se alterássemos o valor para ^ ou 3, seria 
impresso o valor da variável de simples precisão ou da 
variável string, respectivamente. 


VARIÁVEIS TIPO STRING 


As variáveis do tipo string não armazenam na 
área de variáveis a sequência dos caracteres. Por isso 
elas possuem a sintaxe de armazenamento apresentada na 
figura 1 .13 . 


FIGURA 1.19 - Araazenanento de variáveis tipo string 


03 


XX XX yy ww ww 



endereço de armazenamento dos 
caracteres 

comprimento dos caracteres 
nome da variável 
indica o tipo de variável e em 
quantos bytes está armazenada 
a informação após o nome 


A Variável de Sistema FRETOP (contém &HF168 
como default) armazena o endereço que vai receber o 
último caráter da primeira string definida, se duran- 
te a execução for feita alguma operação envolvendo as 
strings. Portanto.se a string possuir 10 caracteres, o 
endereço &HF15F conterá o primeiro caráter da string. 
A segunda stri«ng definida terá seu último caráter ocu- 
pando 0 endereço &HF15E e assim sucessivamente. 

Se num programa houver uma linha com a se- 
guinte sintaxe 

í 3 0 A 9i == " I U A H C F E: F A K 0 U D A K " 


ao executá-la. o Interpretador criará a va- 
riável com 0 devido nome na área de variáveis, mas o 
endereço para o qual ela vai apontar, estará na área 
de programa, justamente na linha BASIC, indicando o 
primeiro carácter da string. 
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Mas se for feita alguma uperavau com essa 
string, como por exemplo, somá-la com outra string, os 
textos das duas stríngs serão transferidos para a área 
de strlngs e a variável apontará para esse endereço. 


RELOCANDO PROGRAMAS EM BASIC 

0 Sistema MSX exige uma RAM mínima de 8 
Kbytes e o topo da memória sempre deve conter RAM, 
pois ali estão as variáveis de sistema. Se o micro 
dispuser de mais memória, como é o caso dos MSX bra- 
sileiros, esta é alocada até que se chegue ao endereço 
zero. A figura 1^29 apresenta esquematicamente várias 
estruturas possíveis de RAM. 

FIGURA 1.20 - Possíveis configurações de Heiória 
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|~1 ÁREA NÁO OCUPADA 
B VARIÁVEIS DE SISTEMA 
ÍM MEMÓRIA RAM 


Em um MSX com 16 Kbytes de RAM, a área reser- 
vada para o programa BASIC começaria no endereço 
&HCe90. 

Para indicar o endereço onde se inicia a RAM 
disponível existe a variável BOTTON (&HFC<18) e para 
Indicar o início do texto BASIC existe a variável 
TXTTABÍ8.HF676 ). 

Existem mais 3 variáveis de sistema que obri- 
gatoriamente também precisam ser alteradas para que se 
consiga relocar o BASIC. Essas variáveis controlam a 
área de variáveis do BASIC. São eles: 

VARTAB &HF6C2 

ARYTAB &HF6C4 

STREND &HF6C6 
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Quando um programa está funcionando em outra 
área inicial de memória que não o &H8000. todas as 
funções, como o carregamento e a gravação de um pro- 
grama, não são alteradas. 

0 Programa da figura 1.21 divide a RAM em du- 
as partes distintas ( &H8000-&HBFFF e &HC000-valor do 
HIMEM) e colocaremos em cada uma delas um programa 
BASIC. 

FIGURA i.2i - Prograaa RELOC 

ORG RCGMH 
TXTTABIERU *FA76H 
FAC2 VARTABIEGU «FÓCZH 

FAC4 ARYTABsEBU «FAC4H 

F6C6 STRENOIEOU BFACAH 

FC48 BOTTOHIEBU •FC48H 


□••• 

2100B0 


LD 

HL,0B000H 

f INICIALIZA A NOOA 

ce«3 

0003 


LD 

B ,3 

pAREA PARA O BASIC 

c««s 

3000 

LOOP* 

LD 

< HL > B 0 

fCOn 3 ZEROS. 


C««7 

23 


INC 

HL 



c««e 

10FB 


DJNZ 

LOOP 



ce«A 

2100B0 


LD 

HLb0B000H 

f APONTA AS OARIAOEIS 

□••D 

22CAFF 


LD 

<OAR > bHL 

IDE SISTEHA ALTERNA- 


22CCFF 


LD 

CARYI bHL 

iTIVAS PARA A NOOA 

C«i3 

22CEFF 


LD 

<STR > bHL 

pAREA DO BASIC. 


cei6 

22D2FF 


LD 

<BTH> bHL 



C0Í9 

23 


INC 

HL 



C«iA 

22D0FF 


LD 

ÍTXT> rHL 



C01D 

C9 


RET 


fRETORNA AO BASIC. 

C01E 

C01E 

ED4BCAFF 

Fl.FLPt 

LD 

BCb <UAR ) 

f TROCA 0 OALOR 

DE 

C022 

2AC2F0 


LD 

HLb <0ARTAB) 

pOARTAB COM O 


C02S 

ED43C2F0 


LD 

COARTAB > bBC 

iDE OAR. 


C029 

22CAFF 


LD 

CUAR > bHL 



C02C 

ED4BCCFF 


LD 

BCb <ary> 

f TROCA O UALOR 

DE 

C030 

2AC4F0 


LD 

HLb CARYTAB) 

pARYTAB COM O 


C033 

EO43C4F0 


LD 

CARYTAB > bBC 

IDE ARY. 


C037 

22CCFF 


LD 

CARY) bHL 



C03A 

E04BCEFF 


LD 

BCb <str> 

I TROCA O OALOR 

DE 

C03E 

2AC0F0 


LD 

HLb (STREND) 

f STREND COM 0 


C041 

ED43C0F0 


LD 

CSTREND) bBC 

IDE STR. 


C045 

22CEFF 


LD 

<STR>bHL 



C048 

ED4BD0FF 


LD 

BCr <TXT> 

I TROCA O OALOR 

DE 

C04C 

2A70F0 


LD 

HLb (TXTTAB) 

I TXTTAB COM 0 


C04F 

ED4370F0 


LD 

CTXTTAB > bBC 

IDE TXT. 


C0S3 

22D0FF 


LD 

<TXT) bHL 



C0SÁ 

ED4BD2FF 


LD 

BCb <BTH> 



C0SA 

2A48FC 


LD 

HLb <bottoh> 

I TROCA O OALOR 

DE 

C0SD 

ED4348FC 


LD 

<BOTTOM> bBC 

IBOTTOM COM O 


C061 

22D2FF 


LD 

<BTM> bHL 

IDE BTM. 


C0Ó4 

C9 


RET 




FFCA 


VARB 

E0U 

0FFCAH 

lO VALOR DAS 


FFCC 


ARYB 

EOU 

0FFCCH 

IVARS. DE SISTEMA 

FFCE 


STRi 

EQU 

0FFCEH 

iFICA ARMAZENADO 

FFD0 


TXTi 

EOU 

0FFD0H 

lEM AREA NAO 


FF02 


BTH» 

E0U 

0FFD2H 

I USADA PELO 
ISISTEMA 


C065 



END 





0 

primeiro b 

loco do programa inicial 

i za a 


rea de memória a partir do &HB000 para receber o se- 
gundo programa BASIC. 

0 segundo bloco, a partir do LABEL FLFLP, al- 
tera as variáveis de sistema para um programa operar a 
partir do endereço &HB000 ou para voltar a área normal 
de programas BASIC. 
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Os valores das variáveis de sistema de uma ou 
outra área de programa BASIC são armazenados a partir 
do endereço &HFFCA que é uma área não usada pelo sis- 
tema. Dependendo de qual área está sendo usada para 
operar um programa BASIC, os valores que apontam para 
lugares estratégicos do outro programa são temporaria- 
mente armazenados a partir daquele endereço. 

é isso que possibilita que você possa operar 
um ou outro programa em regiões diferentes. 


CHAMANDO COMANDOS DO BASIC 

A maior parte do Interpretador BASIC ocupa a 
página 1 do SLOT 0, mas podem existir duas ou mais 
versões. 0 que realmente importa é que ele interprete 
r I gorosamente o BASIC MSX, sem levar em conta o local 
da memória onde se encontra tal rotina ou se ela dif- 
fere de um ou mais bytes de um outro MSX. 

Mesmo sendo o Interpretador uma espécie de 
poco de areia movediça (é preciso tomar cuidado onde 
se está pisando), existe uma maneira de se simular os 
comandos do BASIC. 


ENTRY POINTS DE COMANDOS 

Para que o Interpretador possa localizar ra- 
pidamente os entry points (pontos de entrada) de um 
comando do BASIC, existe uma tabela que tem início no 
endereço &H392E (página 0). A organização dos entry 
points na tabela é feita em ordem crescente de acordo 
com 0 código da TOKEN. 

A menor TOKEN de comando é a 139 (ENO). O 
primeiro entry point da tabela (2 bytes) corresponde a 
essa token, e assim sucessivamente até o final da ta- 
bela no endereço &H3B64. 

Disso podemos tirar a fórmula: 

EE = (CT-i29)*2+&H392E 

Onde: 

EE = endereço de armazenamento do entry point 

CT = código da tabela de comando 

Por exemplo, suponhamos que você queira des- 


39 



cobrir o endereço onde se Inicia a rotina do comando 
PLAY. O valor de sua token é 193. Usando esse código 
na fórmula obtemos o seguinte endereço: 

&H39AE: 

Consultando o conteúdo desse endereço e do 
byte seguinte, pois o entry point está armazenado na 
forma LSB, MSB, obtemos o seguinte endereço: 

&H73E5 

Esse é 0 entry point do PLAY. 

Ao chamar um comando do BASIC, você passará a 
operar literalmente em BASIC, o que aumenta a lentidão 
do seu programa. 

Alguns comandos são desnecessários de serem 
chamados em um programa Assembly como: GOTO. SCREEN 
(as rotinas dos BIOS fazem isso com maior rapidez). 
REM, PUTSPRITE (é simples manipular sprites diretamen- 
te em Assembly) e outros comandos mais. 

Um comando do BASIC deve ser chamado quando 
queremos que o programa faça algo que necessite um 
algoritmo muito complexo ou trabalhoso, como o comando 
CIRCLE ou 0 PLAY. por exemplo. 

Vamos apresentar uma continuação (fig 1.B2) 
para o programa TOKEN {fig 1.4). Após obter a token de 
um comando, ele imprimirá o seu entry point. 

FIGURA 1.22 - Rotina End Exec 

fROTlNA ENOEXEC. 


•0A2 


CHPUTx 

EQU 

•A2H 





ORG 

ecesEH 

flHPLEMENTA OESUIO 

C0SE 

lA 


LD 

Ar (DE> 

tP/ ROTINA EM 

C«5F 

cooecí 


CALL 

X 

• 

0 

u 

• 

8«HCí®®. 

lA CONTEM CODIGO 






DA TOKEN 




ORG 

®Ci0®H 


ciee 

eóBi 


LO 

B rBlH 

fSUBTRAI 129. 

ciez 

9® 


SUB 

B 


Ci«3 

B7 


AOO 

Ar A 

fMULTIPLICA POR 2. 

Cl»4 



LD 

Dr® 

1 TRANSFERE PARA DE. 

Cl«6 

5F 


LO 

ErA 


Cl«7 

212E39 


LO 

HL. 392EH 

fBOMA COM ENDEREÇO 

Ci«A 

19 


AOO 

HLrDE 

f INICIAL DA TABELA 
pDE ENTRY POINTS 

cieB 

23 


INC 

HL 

pAPONTA HL PARA 
pA PARTE ALTA. 

Ci«C 

®6®2 


LD 

Br2 

pLOOP P/ LER ENDEREÇO. 

CIBE 

3E2® 


LD 

A.2®H 

p IMPRIME ESPAÇO. 

ciie 

CDA20® 


CALL 

CHPUT 


C113 

C113 

7E 

LOOP 8 

LD 

A r < HL > 

pROTINA PARA 

C114 

EÓF® 


AND 

iill®®®®B 

p IMPRESSÃO DO 

Clió 

IF 


RRA 


pNUMERO EM 

C117 

IF 


RRA 


PHEXADECIMAL. 

CilB 

IF 


RRA 



C119 

IF 


RRA 



CilA 

CÓ3® 


ADO 

Ar3®H 


CiiC 

FE3A 


CP 

3AH 
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CllE 

3802 

JR 

C,CONT 

C120 

C607 

ADD 

A, 7 

C122 

CONTi 



C122 

CDA20# 

CALL 

CHPUT 

C12S 

7E 

LD 

A» (HL> 

C12Ó 

EAOF 

AND 

OOOOlillB 

C128 

C630 

ADD 

Ar30H 

C12A 

FE3A 

CP 

3AH 

C12C 

3802 

JR 

C.CONT2 

C12E 

C007 

ADD 

A. 7 

C130 

CONT2 

1 


C130 

CDA200 

CALL 

CHPUT 

C133 

2B 

DEC 

HL 

C134 

iODD 

DJNZ 

LOOP 

C136 

C9 

RET 


C137 


END 



Ve j amos 

ago 

ra alguns 

zar 

algumas roti 

nas úteis do í 

CIRCLE 



FIGURA 1.23 - Prograaa CIRCLE 


p APONTA HL PARA 
lA PARTE BAIXA. 
? EFETUA LOOP. 
fFIH DA ROTINA. 


como ut i I i - 


fPROGRANA CIRCLE. 


SB 11 
0072 
009F 


ORG 

CIRCLEkEOU 
INIGRPtEOU 
CHGET 8 EOU 

OCOOOH 

SBllH 

0072H 

009FH 


COOO 

CD7200 

CALL 

INIGRP 

p INICIALIZA SCREEN 2. 

C003 

210DC0 

LD 

HL.LBA8IC 

pHL DEVE APONTAR PARA 
pUHA FALSA LINHA BASIC 

C006 

CDllSB 

CALL 

CIRCLE 

pCHAHA CIRCLE. 

C009 

CD9FOO 

CALL 

CHGET 

PESPERA UHA TECLA 
p SER PRESSIONADA 

COOC 

C9 

RET 


pVOLTA AO BASIC. 

COOD 

COll 

COIS 

C019 

28313238 

2C393629 

2C333000 

LBA8IC8DEFB 

END 

'(128.96) .30 

'rO 


Note que. quando simulamos o CIRCLE, o par HL 
deve apontar para uma tabela que contenha os códigos 
ASCII com a sintaxe do comando. Os números podem estar 
em ASCII ou na forma tokenízada. 

DRAU 


FIGURA 1.24 - Prograaa DRAU 


5D6E 


0072 


009F 


COOO 

CD7200 

C003 

2100C0 

C006 

CD6ESD 

C009 

CD9FOO 

COOC 

C9 

COOD 


COOD 

22S33842 

COll 

4D383( 2C 

C015 

38304* 44 

C019 

354E5^33 

COID 

S53245 


pPROORAMA DRAU. 

ORG oceeoH 
DRAUt EOU SD6EH 
INIGRPiEOU Oe72H 
CHGET 2 EQU 009FH 
CALL INIGRP 
LD HL.STRINO 

CALL DRAU 
CALL CHGET 

RET 

8TRIN6S 

DEFB 


P INICIALIZA SCREEN2. 
PHL DEVE APONTAR P/ 
pUMA FALSA STRING 
PCHANA DRAU. 

pespera uha tecla 
pSER PRESSIONADA 
pRETORNA AO BASIC. 


"'S8BM80.80NDUNR3U2E ' 
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Ce2» 4E484634 
C824 42S2324E 
Ce28 SS3S42S2 
C82C 334E45 
C82F 4C48554E 
Ce33 S2323545 
C837 S24642S2 
C83B 42444246 
C03F 4E4432 
C042 SS4S5246 
Ce46 44474C48 
C04A 42523442 
C04E 44554E5S 
C0S2 33455246 
C056 442200 
C059 


DEFB 'NHF4BR2NU5BR3NE ' 

OEFB 'LHUNR2UERFBRBDBFND2 ' 


DEFB ■'UERFDGLMBR4BDUNU3ERFO'' ' r 0 


END 


Para simular o comando DRAW basta apontar o 
par HL para uma string com os subcomandos do DRAW. 
exatamente como numa linha BASIC. 


PLAY 


FIGURA 1.25 - Prograaa PLAY 

r PROGRAMA PLAY. 


73E5 


ORG 

PLAYf EQU 

0C000H 

73E5H 


C000 

2107C0 

LD 

HL r STRING 

»HL DEVE APONTAR 
»P7 UMA FALSA 
» STRING 

C003 

CDE573 

CALL 

PLAY 

f CHAMA PLAY. 

C006 

C9 

RET 


fRETORNA AO BASIC. 

C007 

C00B 

224F334C 

3243452D 

STRING 8 OEFB 

'-'03L2CE-GF" . 



C013 224F334C CONT * DEFB '^03L4CE-G04CL803B04CDE-FE-DC'" , 0 

C017 3443452D 

C01B 474F3443 

C01F 4C384F33 

C023 424F3443 

C027 44432D46 

C02B 452D4443 

C02F 2200 

C031 END 

0 modo de armazenamento do play é igual ao do 
comando DRAW. variando apenas os macrocomandos e o en- 
try point. 


PAINT 


Para demonstrarmos o uso 
remos primeiramente um CIRCLE tal 
e em seguida vamos pintá-lo. 


do PAINT. executa- 
qua I a figura 1.23 


FIGURA 1.26 - Prograaa PAINT 

^PROGRAMA PAINT. 

ORO 0B000H 

5B11 CIRCLE»E0U 5BiiH 

59C5 PAINT s EQU 59C5H 

e072 INIGRP8E0U 0072H 

®e9F CMGETt EQU 009FH 
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B000 

CD7200 

CALL 

INIGRP 

fINICIALIZA SCREEN 2. 

B003 

2113B0 

LO 

HL,LBASZC 

fHL DEVE APONTAR PARA 
9UNA FALSA LINHA BASIC 

B006 

CDllSB 

CALL 

CIRCLE 

rCHAMA CIRCLE. 

B009 

211FB0 

LD 

HL,FALZNH 

IHL 0E\;E apontar PARA 
jUHA FALSA LINHA BASIC. 

B»ec 

CDC559 

CALL 

PAINT 

fCHAMA CIRCLE. 

B00F 

CO9F00 

CALL 

CHGET 

«ESPERA UHA TECLA 
f SER PRESSIONADA 

B012 

C9 

RET 


«VOLTA AO BASIC. 


Bei3 28313238 LBASICsDEFB * < 128, 96 ) , 3B ' , • 

B917 2C393629 
BOIB 2C3339«e 

BBiF 28313238 FALINHtDEFB ' ( 128 , 96 ) , 15 ' , 9 

B923 2C393629 

B027 2C31359B 

B02B END 

LINE 

0 comando LINE apresenta uma peculiaridade 
em relação aos comandos vistos até agora. 0 traço que 
liga as coordenadas dos dois vértices não deve ser o 
sinal se menos, mas sim a sua respectiva token (&HF2). 

FIGURA i.27 - Prograea LINE 

•PROGRAHA LINE. 


4B0E 

••72 

••9F 

C000 

CO720O 

ORG 

LINES EOU 

INIGRP «EBU 
CHGET 1 EQU 
CALL 

•C000H 

4B0EH 

••72H 

••9FH 

INIGRP 

«INICIALIZA SCREEN 2 

CO03 

210OC0 

LO 

HL.LBASIC 

«HL DEVE APONTAR 

C0»6 

CD0E4B 

CALL 

LINE 

«PARA UHA FALSA 
«LINHA BASIC. 

C»«9 

CD9F00 

CALL 

CHGET 

«ESPERA UMA TECLA 

C»0C 

C9 

RET 


«SER PRESSIONADA. 
«VOLTA AO BASIC. 

C00O 

2833302C 

LBASICSDEFB 

'<30, 128) 

',0F2H, '<128,96) ',• 

C011 

C01S 

C019 

C01D 

C01F 

31323829 

F2283132 

382C3936 

2900 

END 



Como você pode notar, a simulação de um de- 
terminado comando do BASIC é relativamente fácil. Na 
grande maioria dos comandos, basta apontar o par HL 
para uma falsa linha BASIC e chamar a devida rotina. 


UTILIZANDO VARIÁVEIS EM COMANDOS 

Quando chamamos comandos do BASIC, passamos 
literalmente a operar em BASIC. Então por que não ti- 
rarmos algum proveito disso? Afinai, devido à comple- 
xidade das rotinas do Interpretador, perdemos um tempo 
considerável de processamento. 

Os comandos do BASIC permitem que usemos pa- 
râmetros numéricos e alfanuméricos. 
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Se, ao montar a sua falsa linha BASIC, você 
colocar algum nome de variável, quando o comando for 
executado, o Interpretador buscará na área de variá- 
veis 0 seu devido valor. Esta é uma forma de se mis- 
turar 0 BASIC com programas em Assembly. 

Utilizando a área normal de variáveis do 
BASIC, fica um pouco trabalhoso descobriro endereço 
no qual está armazenada uma variável. Se não quiser- 
mos que sejam alterados os valores de determinadas 
variáveis, basta criar, alterando algumas variáveis do 
sistema, uma nova área de variáveis que será usada 
quando o programa em Assembly estiver operando. 

As variáveis do sistema que devem ser alte- 
radas são: 

VARTAB (&HF6C2) 

ARYTAB {&HFBC4) 

STRENO (&HF6C6) 

As melhores variáveis para serem usadas são 
as de tipo inteiro, pois o formato LSB, MSB é fácil de 
ser recuperado pelo Assembly. 

Analisemos o programa da figura 1.B8 . 

FIGURA 1.28 - Prograna CIRCON 

>CIRCI.E CONCÊNTRICO. 




ORG 

•COOOH 


F6C2 


VARTAB SEQU 

•FÓC2H 


F6C4 


ARYTAB SEOU 

•F6C4H 


FÓC 6 


STRENO lEBU 

•FÓC 6 H 


••72 


INIGRP BEOU 

••72H 


••9F 


CHGETs EOU 

•9FH . 


SB 11 


CIRCLEtEOU 

SBllH 


C^^O 

2AC2FÁ 

LD 

HL, < VARTAB) 

f ARMAZENA CONTEU- 

□ ••3 

2261CB 

LD 

(AVAR > ,HL 

tDO DAS VARIAVEIS DE 

C ^«6 

2AC6F6 

LD 

HL, <STREND> 

» SISTEMA QUE DELI- 


22A3C9 

LD 

(A 8 TR > ,HL 

fMITAM A AREA DE 

C^OC 

2AC4F6 

LD 

HL, (ARYTAB) 

^VARIAVEIS DO 

C^^F 

22À5CO 

LD 

( ARYT) ,HL 

I BASIC. 

C ^12 

21SBCB 

LD 

HL,NVAR 


COIS 

22C2F6 

LD 

( VARTAB) , HL 


c^ie 

2160C^ 

LD 

HL.FIMVAR 


C^IB 

22C6FÓ 

LD 

(STRENO) ,HL 


C^IE 

22C4F6 

LD 

(ARYTAB ) ,HL 


CB21 

CD72BB 

CALL 

INIORP 

t ATIVA SCREEN2. 

CB24 

•••A 

LD 

B,10 


CB26 


LOOPs 



CB26 

2A3ECB 

LD 

HL, (NVAR-e-3) 

fCARREOA VALOR DA 
;VARIAVAEL EM HL 

CB29 

23 

INC 

HL 


C02A 

23 

INC 

HL 

9 INCREMENTA HL. 

C02B 

23 

INC 

HL 


CB2C 

22SECB 

LD 

(NVAR-e-3) ,HL 

9 ARMAZENA NOVO VALOR. 

CB2F 

214FC^ 

LD 

HL,LBASIC 

9 APONTA HL P/ LINHA 
9 BASIC. . 

C^32 

CS 

PUSH 

BC 

9 SALVA B. 

CB3B 

C0115B 

CALL 

CIRCLE 


C^36 

Cl 

POP 

BC 

9 RECUPERA B. 

C^37 

IBED 

DJNZ 

LOOP 

9 EFETUA LOOP. 

C039 

CD9F^A 

CALL 

CHGET 

9 ESPERA TECLA SER 


; PRESSIONADA 


3 ^ 



C93C 

2A61CB 


LO 

HL, (AUAR > 

fRESTITUI 0 

C«3F 

22C2F6 


LD 

(UARTAB) ,HL 

$ VALOR O AS 

C042 

2A63C0 


LO 

HL, ( ASTR > 

fVARIAVEIS 

C9AS 

C04B 

C04B 

C®4E 

22C6F6 

2A6SCB 

22C4FÓ 

C9 


LO 

LO 

LO 

RET 

(STREND) ,HL 
HL, <ARYT> 
(ARYTAB) ,HL 

yOE SISTEHA. 

C9AF 

ces3 

C«37 

28313238 

2C393Ó29 

2C4C2Se« 

LBASICiOEFB 

128.96) ,LZ ' 

,9 

cesB 

C05F 

92AC9999 

ee 

NVARS 

OEFB 

•2, 'L 


CB60 

99 

FIM\;AR IDEFB 

9 


CB61 

9999 

AVAR 1 

OEFU 

9 


CB63 

9999 

ASTRi 

OEFU 

9 


ceós 

CB67 

9999 

ARYTS 

OEFU 

ENO 

9 



ENTRY POINTS DE FUNCSES 

Logo após a tabela de comandos, começa a ta- 
bela que contém os entry points das funções do BASIC. 
Seu endereço inicial é o &H39DE, e sua organização é 
igual à tabela de entry points de comandos. 

Podemos obter facilmente o entrepoint utili- 
zando a fórmula: 

EE-^dF -í )«2+&H39DE: 

Onde : 

EE= endereço de armazenamento do entry point 

TF= código da token de função (com o bit 7 
resetado. ) 


A tabela da figura 1.29 mostra o entry point 
de cada uma das funções do BASIC. 


FIGURA Í.29 

- Tabela de entra points de funçSes 



&H6861 

LEFT$ 

&H4FCC POS 

&H30BE 

FIX 

&H6891 

RIGHT$ 

&H67FF LEN 

&H7940 

STICK 

&H689A 

MI0$ 

&H660-A STR$ 

«.H794C 

STRIG 

&H2E97 

SGN 

&H68BB VAL 

&H795A 

POL 

&H30CF 

INT 

&H680B ASC 

&H7969 

PAD 

&H2E82 

ABS 

&H681B CHR$ 

&H7C39 

DSKF 

&H2AFF 

SOR 

&H541C PEEK 

&H6D39 

FPOS 

&H2BDF 

RNO 

&H7BF5 VPEEK 

&H7C66 

CVI 

&H29AC 

SIN 

&H6848 SPACE$ 

&H7C6B 

CVS 

&H2A72 

LOG 

&H65F5 0CT$ 

&H7C70 

CVD 

&H2B4A 

EXP 

&H65FA HEX$ 

&H6025 

EOF 

&H2993 

COS 

&H4FC7 LPOS 

&H6D03 

LOC 

&H29FB 

TAN 

&H65FF BIN$ 

&H6D1<1 

LOF 

&H2A14 

ATN 

8.H2F8A CINT 

&H7C57 

MKI$ 

&H69F2 

FRE 

&H2FB2 CSNG 

&H7C5C MKS$ 

&H^001 

INP 

&H303A CDBL 

&H7C61 

MKD$ 
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os HOOKS (DESVIOS) 

Baseada na filosofia de modularidade e ex- 
pansibilidade do padrão MSX. a Microsoft (criadora do 
Basic MSX ) dotou o sistema operacional de um recurso 
extremamente poderoso: a possibilidade do usário al- 
terar 0 funcionamento das principais rotinas do BIOS e 
de alguns comandos do Basic sem a necessidade de adap- 
tação do hardware ou de reprogramação da ROM. 

Esta característica é possível graças à es- 
trutura do sistema operacional que, antes de executar 
os comandos alteráveis, verifica em um setor especial 
da RAM se deve prosseguir normalmente ou tomar um ca- 
minho alternativo definido pelo usuário. Com isso vo- 
ei pode alterar as características de entrada e saída 
do computador, criar novos comandos e até conectar pe- 
riféricos não-MSX ao micro, mantendo a compatibilidade 
entre os dois. 

O QUE SSO OS HOOKS 

Basicamente, os "hooks" comportam-se como um 
desvio de trem; quando um comando chama um ”hook" este 
nada faz, devolvendo o controle à ROM. Mas o usuário 
pode, com auxílio de POKEs, alterar a "direção” do co- 
mando, ou seja, desviá-lo. 

Nem todos os comandos e funções do Basic e 
rotinas do BIOS possuem "hooks”, mas apenas aqueles em 
que os”hooks” podem ter alguma utilidade, como veremos 
mais a frente. 

COMO OS HOOKS FUNCIONAM 

Um ”hook” é uma sequência de cinco bytes. E- 
xistem diversos "hooks" enfileirados na área final da 
página 3 da RAM, mais exatamente entre os endereços 
&HFD9A e &HFFCA, que são preenchidos com o código &HC9 
(RET) ao se ligar o computador. 

Em cada "hook", cinco bytes estão reservados 
para cada comando ou função. Quando um comando é cha- 
mado, ele executa um CALL para o primeiro byte do 
"hook” que, possuindo o byte &HC9 (RET). faz o mesmo 
ser ignorado pelo sistema. 

Para causar o "desvio" citado acima, deve-se 
fazer uma sequência de até cinco POKEs na área corres- 
pondente ao respectivo comando. 

Veiamos um exemplo prático; vamos altera o 
computador para que um "bip" seja tocado ao se pressi- 
onar uma tecla. Para isso deve-se saber, antes de mais 
nada, se existe um "hook" para a rotina de teclado. 
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Pesquisando na tabela de "hooks”. constatamos 
que existe um hook para a rotina CHGET do BIOS, res- 
ponsável pela leitura do teclado. Esse "hook” inicia 
em &HFDC2 e termina em &HFOC6. Existe também no BIOS 
uma rotina chamada BEEP (&H0eC0), que é a utilizada 
normalmente pelo micro. 

Experimente comandar: 

POKE «.HF0C2.&HC3,P0KE 4HFDC3. &HC0 . POKE &HFOM,4H00 

Com isso 0 "hook" ficará assim: 

C3 C0 00 cg cg 

Depois, veja os resultados (pressione algumas 

tec ias). 

Agora faca o seguinte: desligue o computador 
e ligue novamente (RESET total), e então digite: 

POKE SHfD(;:2,é;HC3 (RETURN) 

POKE &HFDC3,&HC0 (RETURN) 

POKE «HFDC4,&HO0 (RETURN) 

Se você procedeu corretamente, verá que per- 
deu 0 controle do sistema logo após digitar a primeira 
linha. Por que isso ocorre ? 

Pensando-se um pouco, vem a resposta: após o 
primeiro POKE, o "hook" ficou assim: 

C3 cg cg cg cg 

Ao pressionarmos novamente uma tecla, o com- 
putador imediatamente executou o primeiro comando do 
"hook", que é: 

jp cgcg ( C3 cg cg) 

Como é extremamente improvável que exista al- 
go lógico em &HC9C3 e subsequentes, o micro só pode 
mesmo entrar em "crash”. Por isso, tome cuidado ao al- 
terar os "hooks”, pois alguns são chamados em instan- 
tes críticos como, por exemplo, sempre que alguma te- 
cla é pressionada. 


ALGUMAS APLICAÇÕES 

Existem vários "hooks" que podem ser úteis 
para o usuário. Por exemplo, imagine que você queira 
proteger um programa em BASIC, impedindo que este pos- 
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sa ser listado. Para bloquear o comando LIST. basta 
alterar seu "hook'* (iniciado em &HFF89) para um outro 
comando. Digite um programa qualquer em BASIC e coman- 
de: 


POKE &HFF89,&HCí 
L.IST 

Aparentemente, não há nenhum programa na me- 
mória. Se você digitar o comando RUN. entretanto, ve- 
rá que 0 programa continua funcionando! Você pode tam- 
bém ser mais "cruel” e alterar o "hook" do LIST para 
que este cause uma pane geral no computador ao se ten- 
tar listar 0 programa . 

No Apêndice II. você tem todos os "hooks" do 
computador I i stados . 


A MATRIZ DO TECLADO 

0 circuito que controla o gerenciamento do 
teclado é a PPI. O teclado do MSX apresenta uma orga- 
nização matricial conforme pode ser observado na figu- 
ra 1 .30 . 

FIGURA 1.30 - Configurações de teclado 



EXPERT 1.1 


HOTBIT 



38 







0 sistema operacional faz a varredura do te- 
clado. permanentemente, linha após linha, enviando pa- 
ra 0 primeiro nibble da porta C da PPI o número da li- 
nha da matriz do teclado a ser ativada. 

A PPI envia esse número ao decod i f i cador do 
teclado, que ativa a linha da matriz. 

Em seguida, a porta B da PPI é consultada. 
Todas as colunas que possuirem um bit ressetado indi- 
carão 0 press i onamento de uma tecla. 

Após 0 sistema operacional receber esse byte 
ele consulta uma das 5 tabelas (de <48 bytes cada) da 
ROM que estio a partir do endereço &H0DA5. para saber 
0 código do caractere correspondente à tecla pressio- 
nada. 

As primeiras 5 tabelas são para as primeiras 
5 linhas da matriz, que correspondem às teclas que 
são de controle ou especiais. 

0 Sistema Operacional seleciona a tabela de 
acordo com as teclas que estiverem sendo pressionadas 
conjuntamente (SHIFT. teclas gráficas. SHIFT+teclas 
gráficas). 

A tabela que indica o código das linhas de 
6a 10 do teclado tem início a partir do endereço 
&H1033. Essa tabela não faz parte das outras, porque 
0 código das teclas é o mesmo se outras teclas estive- 
rem sendo pressionadas conjuntamente. 

FIGURA i.3i - Tabelas de reconheciaento de teclas especiais 


4.033 

00 

00 

00 

00 

00 

00 

00 

00 

Linha 

6 

4.03B 

00 

00 

4.B 

09 

00 

0B 

.1.8 

0D 

Linha 

7 

4,043 

20 

0C 

4.2 

7F 

4.Ü 

4.E 

ÍF 

4.C 

linha 

8 

.1.04B 

2B 

2D 

2A 

2F 

00 

00 

00 

00 

Linha 

9 

4,053 

00 

00 

00 

00 

00 

00 

00 

00 

Linha 

10 

Coluna 

1 

S 

3 

4 

5 

6 

7 

8 




O BUFFER DO TECLADO 

Após ser feita a varredura do teclado e o 
código do caracter ter sido obtido, ele é enviado para 
uma região da memória denominada "buffer" do teclado. 

■Tecnicamente, o buffer de teclado do MSX é 
chamado de KEYBUF e situa-se entre os endereços &HFBF0 
e &HFC17 (inclusive), num total de <40 bytes. O funcio- 
namento do buffer é igual ao de um banco> se o caixa 
trabalhar rápido, quem chega é atendido na hora e não 
há possibilidade de formar fila. Isso é o que aconte- 
ce, por exemplo, quando você dígita um programa em 
BASIC. 
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Se 0 caixa trabalhar devagar (ou parar), togo 
teremos a formação de uma fila que cresce com o tempo 
até chegar à calçadal Nessa hora quem chegar vai de- 
sistir ao ver o tamanho da fila. Isso é o que chamamos 
de "buffer lotado", e acontece quando o computador es- 
tá executando uma tarefa muito demorada e você pres- 
siona várias teclas até o click cessar. Então, quando 
0 ele acaba a execução ficando livre, tudo aquilo que 
foi pressionado aparece na tela e é processado, como o 
caixa que voltou a funcionar tão rápido que esvaziou a 
filai 


INSERINDO DADOS NO KEYBUF 

A possibilidade de colocar caracteres no 
buffer do teclado pode ser aproveitada para simular 
sua digitação, ou seja, fazer o computador "pensar" 
que algo foi digitado. Isso parece inútil a princípio, 
mas para um bom programador toda informação pode ser 
útil, especialmente na arte de proteger e desproteger 
programas . 

Além dos ^0 bytes, existem duas variáveis do 
sistema (PUTPNT. no endereço &HF3F8. e GETPNT, no en- 
dereço &HF3FA) que controlam a entrada e saída dos ca- 
racteres do buffer. 

PUTPNT aponta o byte livre para o próximo ca- 
racter digitado, e GETPNT aponta para o próximo carac- 
ter a ser retirado do buffer. A cada novo carácter di- 
gitado, PUTPNT avança de um endereço, voltando ao co- 
meço sempre que tenta escapar do buffer. 

GETPNT é incrementada sempre que um caracter 
é retirado do buffer pelo sistema operacional, também 
voltando ao começo. O buffer é dado como cheio quando 
PUTPNT tenta apontar para o mesmo endereço dado por 
GETPNT. 


Para colocar uma informação no buffer deve- 
se, além de escrevê-la no espaço reservado, acertar as 
variáveis PUTPNT e GETPNT. Por exemplo, para inserir o 
comando 


RUN (RETURN) 

deve-se alterar os bytes da forma como está especifi- 
cado na f i gura 1 .32. 



FIGURA 1.32 

- Inserindo un 

coaando no KEYBUF 

KEYBUF." 

FBF0 

52 

•R • 


FBFl 

55 

■ U' 


FBF2 

4F 

N- 


FBF3 

0D 

RETURN 

PUTPNT: 

F3F8 

F3F9 

F4 

FB 

; ij 1 1 i rn o cí n cl e r cí ç. o « í 

GETPNTs 

F3FA 

F3FB 

F0 

FB 

í P I- i me i r o en d er eg: o 

Estes podem 

ser colocados por um programa 


Assembly ou por um programa em BASIC (comando POKE). 
Ao retornar ao nível de comando direto, o computador 
executará a ordem contida no buffer como se esta ti- 
vesse sido digitada. Mas atençãoi os comandos e fun- 
ções do BASIC que lêem o teclado como o INPUT, 
LINEINPUT. INPUT$. INKEY$. etc reconhecerão os dados 
no buffer como teclas pressionadas e os retirarão do 
mesmo. 0 mesmo vale para a rotina CHGET do BIOS. 

Teste 0 programa da figura 1.33 . 

FIGURA 1.33 - Inserindo conandos e« BASIC no KEYBUF 


i<ò SCREEiN .1. 

20 Aíb=="COLOR í5,4,7"fCHR!G( j,3) 

30 f"OR I:==í TO LEN(A%) 

40 P OI< E I +aHFB EF , A3C < M I DS ( A3i , I , í ) ) 

50 NEXT I: POKE (?,HF3FA , &MF0 ü POKE 6HF3FrJ , «I IFB 
60 POKE & H F 3 F 8 , S I- 1 F D 5 P O K E ^ H F 3 F 9 , fí H f ■ B 
70 END 

O programa coloca no buffer a ordem para al- 
terar as cores da tela. Esse mesmo programa poderia 
ser facilmente feito em Assembly. como mostra a figu- 
ra 1.34 . 


F3F0 

F3FA 

FBFe 

CBB3 

CBBE 

C011 

C014 

C015 

C010 

C#19 

C01D 


1 1.34 - Prograia KEYBUF 



PUTPNT *E«U 

• 

•F3FBH 


OETPNTiEBU 

1 

•F3FAH 


KEYBUF lEOU 

B 

0FBF0H 


ORG 



2119C0 

LO 

HL.COHANOO 

f TRANSFERE COHANOO 

11F0FB 

LO 

OE, KEYBUF 

rPARA O BUFFER 

eieD00 

LO 

BC, 13 

IDO TECLADO 

EDB0 

LOIR 


9 

21F0FB 

LO 

HL, KEYBUF 

pAPONTA GETPNT P/ 

22FAF3 

LO 

CGETPNT) ,ML 

P INICIO DO COMANOO 

iieE00 

LO 

OE, 14 

pAPONTA PUTPNT P/ 

19 

AOO 

HL, DE 

pO FIH OO COHANOO 

22F0F3 

LO 

<PUTPNT> ,HL 

I 

C9 

RET 


pRETORNA AO BASIC 

434F4C4F 

COMANOODEFB 

'COLOR 1S,4,7 

'r 13 

5220313S 
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Ce2i 2C342C37 
C«25 «D 
C026 


END 



^2 





OPERANDO 
^O VDP EM 
“^LINGUAGEM 
DE MÁQUINA 


0 sistema MSK é provido de rotinas específi- 
cas para o controie e inicialização do VDP e da VRAM. 
Explicaremos aqui como tirar proveito delas ( no 
apindice V há uma lista completa com todas as rotinas 
do BIOS ). 

As primeiras rotinas a comentar são DISSCR 
( &H<t1 ) e ENASCR que. quando chamadas, chaveiam 
a imagem do VDP. DISSCR faz a imagem desaparecer, fi- 
cando a tela toda com a cor do fundo (quando em SCREEN 
0} ou da borda (nas demais telas). ENASCR inverte o 
processo . 

Vejamos um programa exemplo na figura 2.1 
FIGURA 2.1 - Prograta BACKCOLOR. 




ORO 

•C«««H 


•«41 


DISSCR SEQU 

••41H 


••44 


ENASCR KEQU 

••44H 


F3EA 


BDRCLRiEQU 

•F3EAH 


••9F 


CHGETi EQU 

••9FH 


••A2 


CHGCLR lEQU 

••Ó2H 



CD41«« 

CALL 

DISSCR 

íDesabilita video. 

C««3 


INICs 



C««3 

C09F«« 

CALL 

CHGET 

» ESPERA TECLA SER 


FEIC 

CP 

28 

«PRESSIONADA. 

C««8 

2««9 

JR 

NZ^CONT 

«CASO SEJA 

C««A 

3AEAF3 

LD 

A, (BORCLR> 

«PEGA COR DE FUN- 

C««D 

3C 

INC 

A 

«DO E INCREMENTA. 

C««E 

32EAF3 

LO 

(BDRCLR> »A 

«ARMAZENA EM BORCLR. 

C«ll 

Í8«B 

JR 

CONTi 

«SALTA P/ CONTI. 

C«13 


CONTt 
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tCASO '◄'r 


cei 3 FEiD 

c«is 2«ec 

C017 3AEAF3 
C01A 3D 
C01B 32EAF3 
C01E 

C01E CO^»200 
C021 18E0 
C023 

C023 CD44e« 
C026 C9 
C027 


CP 

JR 

LO 

DEC 

LO 

CONTl» 


29 

NZrFIH 
A, (BORCLR) 
A 

CBORCLR > ,A 


CALL CHGCLR 
JR INIC 

FIMi 

CALL ENASCR 

RET 

ENO 


iPEGA COR DE FUNDO 
;E DECREHENTA. 
lARHAZENA EH BDRCLR . 

iHUDA COR DE FUNDO. 
pSALTA P/ INIC. 

INABILITA UIDEO. 
IRETORNA AO BASIC. 


0 programa BACKCOLOR utiliza a rotina DISSCR 
para interromper a geração da imagem pelo VDP. Em se- 
guida é chamada a rotina CHGET (&H009F), que espera o 
pr ess i onamento de uma tecla e devolve o seu código. Se 
a tecla for a seta para a direita a variável fundo é 
incrementada e enviada para o registo 7 do VDP que de- 
termina a cor de fundo. 

Para enviar um valor a um registro do VDP 
usamos a rotina WRTVDP (&H0047) que possui um funcio- 
namento bastante simples, basta carregar o registrador 
B com 0 valor a ser enviado para o registro, e no 
registrador C o número do registro do VDP. 

Se for pressionada a tecla de seta para a es- 
querda. a variável fundo é decrementada. sendo seu va- 
lor enviado ao registro 7 do VDP. 

Se a tecla de seta para cima for pressionada. 
0 programa habilita novamente o VDP pela rotina ENASCR 
e retorna ao BASIC. 


LENDO E ESCREVENDO NA VRAM 

Outro importante par de rotinas é RDVRM(&H4A) 
e WRTVRM(&H4D) que manipula as posições de memória da 
VRAM. RDVRM le o conteúdo do endereço especificado em 
HL e 0 devolve em A. Reciprocamente. WRTVRM escreve 
no endereço da VRAM apontado por HL o conteúdo dado 
por A. 

No programa da figura E.2 vamos utilizar as 
rotinas RDVRM e WRTVRM para fazermos um DUMP da VRAM 
na impressora. 0 byte que estiver sendo lido e impres- 
so ficará temporariamente com o código &HFF. 

FIGURA 2.2 - Prograia VDUhP 


•04D 
004A 
• 09F 

00A5 

ceee 210000 


ORG 0C000H 
URTURHIEQU 004DH 
RDVRMi E0U 004AH 
CHGET I E0U 009FH 
LPTOUTSEQU 00ASH 
LD HL.0 


iPOSICIONA CURSOR 
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C««3 

ce«3 3^ 

□••4 5D 
C«es CD4A0* 

C00B 3278C0 
C00B 3EFF 
C00O CD4D00 
C010 CO9F00 
C013 FE50 
C01S 202C 
C017 3A78C0 
C01A E6F0 
C01C IF 
CeiD IF 
C01E IF 
C01F IF 
C020 C630 
C022 FE3A 
C024 3802 
C026 C607 
C028 

C028 CDAS00 
C02B 3A78C0 
C02E EÀ0F 
C030 C630 
C032 FE3A 
C034 3802 
C036 CÒ07 
C038 

C038 CDA500 
C03B 3E20 
C03O COA300 
C040 23 
C041 181F 
C043 

C043 FE4Ó 
C045 C8 

C046 FEIC 
C048 2001 
C04A 23 
C04B 

C04B FEID 
C04D 2001 
C04F 2B 
C050 

C050 FEIE 
C032 2803 
C0S4 060A 
C0S6 
C056 23 
C057 10FD 
C039 

C039 FEIF 
C0SB 2803 
C0SD 060A 
C03F 
C0SF 2B 
C060 10FD 
C062 

C062 FE0O 
C0Ó4 2008 
C0ÓÓ CDAS00 
C069 3E0A 
C0^B CDA500 
C06E 

C0ÓE 3A78C0 
C071 EB 
C072 CO4O00 
C075 EB 
C076 188B 
C078 00 
C079 0000 
C07B 


INICs 

LD 0„H 
LD E.L 
CALL RDURH 
LO (v;alor>,a 
LD A , 0FFH 
CALL URTVRM 
CALL CH6ET 
CP 'P ' 

JR NZ^CONT 

LO A,<UALOR> 

ANO 11110000B 

RRA 

RRA 

RRA 

RRA 

ADO A,30H 
CP 3AH 
JR C,IHP 
AOO A, 7 

IMPi 

CALL LPTOUT 
LD A. < VALOR) 
AND 00001 illB 
ADO A,30H 
CP 3AH 
JR C^IHPl 
ADD A, 7 

IMPli 

CALL LPTOUT 
LO A , 20H 

CALL LPTOUT 


INC 

HL 

JR 

CONT4 

CONTt 

CP 

'F' 

RET 

Z 

CP 

28 

JR 

NZ, CONTl 

INC 

HL 

CONTl s 

CP 

29 

JR 

NZ.CONT2 

DEC 

HL 

CONT2B 

CP 

30 

JR 

Z.CONT3 

LD 

B. 10 

LOOP 1 1 

INC 

HL 

DJNZ 

LOOPl 

CONT39 

CP 

31 

JR 

ZrCONT4 

LD 

B , 10 

LOOP 21 

DEC 

HL 

DJNZ 

LOOP2 

CONT4I 

CP 

0DH 

JR- 

NZ . CONT3 

CALL 

LPTOUT 

LD 

Ar 0AH 

CALL 

LPTOUT 

CONT3S 

LD 

A, (VALOR) 

EX 

DErHL 

CALL 

URTVRM 

EX 

DErHL 

JR 

INIC 

VALOR 9 DEFB 

0 

ENDb DEFU 

0 

END 


?NO INICIO OA RAN 
9 

fCARREOA DE COH O 
rENO. DO CURSOR. 
fARHAZENA VALOR 
rSOB O CURSOR. 
SlHPRIHE CURSOR. 

I 

fESPERA COMANDO. 

» COMPARA COM 'P '. 

?SE <> SALTA P7CONT. 
I IMPRIME O 
9 HEXADECIMAL 
9 DO BYTE SOB 
90 CURSOR. 


9SE 'F ' FOI PRES- 
9SIONAOO, VOLTA 
rAO BASIC. 

?SE FOR 

9PRESSIONAOA 
9 AVANÇA O CURSOR. 

9SE FOR PRES- 

tSIONAOA RETROCEDE 
90 CURSOR. 

9SE 'A' for PRES- 
9SIONAOA AVANÇA 
90 CURSOR EM 10 
9BYTES. 


9SE FOR PRES- 

9SIONADA RETROCEDE 
90 CURSOR EM 10 

9 bytes. 


9 SE RETURN FOR 
9 PRESSIONAOO 
9AVANCA O PAPEL 
9DA IMPRESSORA. 


9 RESTITUI O BYTE 
9 SOB O CURSOR. 


9 EFETUA LOOP. 
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Quando o programa comeca a operar, surge, de- 
pendendo da SCREEN em uso, um pseudo-cursor no canto 
esquerdo superior do vídeo. As teclas de controle do 
cursor também orientam a movimentação deste. 

A tecla de seta para cima retrocede o cursor 
em 10 bytes, e a seta para baixo avança 10 bytes. 

A tecla de seta para esquerda retrocede o 
cursor e a seta para direita avança o cursor. 

Para se mandar um byte para a impressora, 
basta pressionar a tecla “P”. Quando isto ocorre o 
cursor avança automaticamente. 

Se, ao mandar imprimir um byte, ele não for 
impresso, não se preocupe. Provavelmente é porque a 
sua impressora possui um buffer, e só começará a im- 
primir quando forem enviados os caracteres &H0D e &H0A 
(Carriage Return e Line Feed). Para que esses caracte- 
res sejam enviados para a impressora basta pressionar 
RETURN. 


TROCANDO O MODO DAS TELAS 

As rotinas INITXT (&H006C), INIT3S (&H006F), 
INIGRP (&H0072) e INIMLT (&H0075) equivalem ao comando 
SCREEN do BASIC. O seu uso é bastante simples, basta 
chamar a rotina com um CALL para que sejam organizadas 
todas as áreas da VRAM e registros do VDP. 

0 único cuidado que deve ser tomado é quanto 
ao valor dos registradores quando as rotinas de mudan- 
ça de SCREEN são chamadas, pois elas destroem o valor 
de todos os registradores. Portanto antes de chamar 
essas rotinas guarde os valores importantes no stack 
para que não ocorram "crashe” na execução. 


CONTROLANDO SPRITES EM LM 

Os sprites são mapeados na VRAM em duas par- 
tes: 

1) Tabela de atributos (iniciada em 691E). 

2) Tabela de formação (iniciada em 14336). 

Nesta seção, consideraremos sempre os endere- 
ços de "default", ou seja, com os valores dados polo 
computador quando é ligado. 

A tabela de atributos define os parâmetros 
dos 32 sprites do VDP e ocupa 128 bytes, agrupados de 
4 em 4. como na figura 2.3. Essa tabela é sempre a 
mesma para as SCREENs 1, 2 e 3. 
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FIGURA 2.3 - Tabela de atributos dos SPRITEs. 

SPRITE 0:691.2 Y 
69Í3 X 
691.4 N 
6915 C 

SPRITE í:69i6 Y 

6917 X 

6918 N 

6919 C 

N 


SPRITE 31:7036 Y 

7037 X 

7038 N 

7039 C 

Onde : 

YiCoordenada Y do SPRITE. 

XsCoordenada X do SPRITE. 

N, Número do SPRITE. 

CxCor do SPRITE. 

A tabela de atributos é a mesma para definir 
sprítes 8x8 e 16x16. com excecão do valor de N. que no 
segundo caso deve ser multiplicado por 4. Por exemplo, 
ao se comandar 

PUTSPRITE 2, (160,40) ,15,3 
teremos, como mostra a figura 2.4. na VRAM. 

FIGURA 2.4 - Duap de parte da tabela de atributos. 


MODO 


8x8 

16x16 


Endereço 

6920 

- 40 

40 

(Y) 


6921 

- 160 

160 

IX) 


6922 

- 3 

12 

(N) 


6923 

- 15 

15 

(C) 


A tabela de formação dos sprites inicia em 
14336 (para 8x8 e 16x16). No sistema 8x8 cada grupo de 
8 bjftes representa um sprite completo, e no sistema 
16x16 cada imagem é definida por 32 bytes. Note que o 
espaço ocupado por um sprite 16x16 í quatro vezes 
maior que o ocupado por um 8x8.- 
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> 


A estrutura dessa tabela é apresentada na fi- 
gura 2.5 


FIGURA 2.5 - Tabela de foraaçio dos sprites 


Número 

End. (8x8) 

end. (16x16) 


0 

14336 

14336 


1 

14344 

14368 


« 

1 

14352 

14400 


b 

14480 

16352 


355 

16376 



Não 

se esqueça de 

que 0 número pode variar 

de 

0 a 255 (8x8) 

ou 0 a 63 

(16x16). É fácil ver que 

0 

endereço inicial de uma 

figura ( SPRITE ) é dado 

por 


E=14336+8«N. onde N é o número definido na tabela de 
atributos. Isso explica o porquê de multiplicar N por 
4 no sistema 16x16. 


MOVIMENTANDO UM SPRITE 

A esta hora você já deve estar pensando como 
comandar PUTSPRITE sem usar essa palavra do BASIC. 

Você pode dar VPOKEs se estiver usando o in- 
terpretador. mas isto não pode ser feito diretamente 
em LM. Como para tudo existe uma solução, há uma ro- 
tina no BIOS chamada WRTVRM (&H004D) que funciona co- 
mo um VPOKE: fornece-se o endereço em HL. o dado em A 
e chama-se &H004D. como se vê na figura 2.6 . 

FIGURA 2.6 - Movinentando ui SPRITE et Assetbly. 


ASSEMBLY 

BASIC 

XXXK 21 00 1B LD HL. 691 2 

XXXX+3 3E FF LD A. 149 

XXXX+5 CD 4D 00 CALL 004DH 

XXXX+8 C9 RET 

VPOKE 6912.149 


Assim, é possível não apenas definir um 
SPRITE na tela. mas também movimentá-lo. A velocidade 
conseguida por este processo é muito grande serve 
perf-e i tamente para a animação de jogos qis usam 
SPRITEs. 
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Vamos 

programa (fíg 
movimenta da 
As setas de 
aumentando-a 
para cima ). 


agora comprovar essa velocidade 
2.7) que define um sprite na te 
esquerda para a direita repetidas 
controle do cursor controlam a 
(seta para baixo) ou diminuindo- 


FIGURA 2.7 - 

hovilientador de 

SPRITEs 




ORG 

eceeeH 




URTVOPSEQU 

e47H 




RDV/RMs EOÜ 

04AH 




UR TS/RMtEQU 

04DH 


«esc 


LDIRUMiEQU 

escH 


e«óF 


INIT32IEQU 

eóFH 




CALPATSEOU 

e84H 


««B7 


CALATRiEBU 

0B7H 


eeos 


GTSTCK CEOU 

0D5H 


F3E0 


RG1SA^;IEQU 
r INICIO 

«F3EeH 


ceee 

CDóFee 

CALL 

INIT32 

fMODO SCREEN 1. 

C««3 

3AEeF3 

LD 

fk, (RGISAO) 

fPASSA SPRITES 

ce«6 

CBC7 

SET 

0r A 

fPARA MODO AM- 

C0«8 

47 

LD 

B »A 

fPLIADO 8x8. 

C««9 

eEei 

LD 

C,1 


C««B 

CD47ee 

CALL 

URTVDP 


ceeE 

3Eee 

LD 

A.e 

rPROCURA INICIO 

ceie 

co84ee 

CALL 

CALPAT 

iDO PADRAO e. 

cei3 

EB 

EX 

DE, HL 

pCRIA 0 PADRAO. 

cei4 

2i7ACe 

LD 

HL,TBL 


cei7 

eieBee 

LD 

BC, 8 


ceiA 

coscee 

CALL 

LDIRUN 


ceiD 

3E0e 

LD 

A,e 

pBUSCA ATRI- 

ceiF 

coB7ee 

CALL 

CALATR 

fBUTOS DO 
ISPRITE 0. 

ce 22 

3Eóe 

LD 

A,9A 

pCOORD. Y- 

ce24 

CD4Dee 

CALL 

URTVRM 


C027 

23 

INC 

HL 


Ce2B 

23 

INC 

HL 


ce29 

3Eee 

LD 

A,e 

pPADRAO e. 

Ce2B 

CD4oee 

CALL 

urt^;rm 


C02E 

23 

INC 

HL 


Ce2F 

3Ees 

LD 

A, 8 

fCOR 8 <OER~ 

ce3i 

CD4Dee 

CALL 

urtvrm 

IMELHO) - 

ce34 

3E2e 

LD 

A, 32 

1 AJUSTA O 

C036 

3279ce 

LD 

<TEMP ) ,A 

I TEMPO- 

C039 


LOOP0I 


fLOOP EXTERNO. 

ce39 

06ee 

LD 

B,e 

fPREPARA 0 
pLOOP INTERNO. 

Ce3B 


LOOPi 


C03B 

cs 

PUSH 

BC 

fSALOA BC. 

C03C 

3Eee 

LD 

A,e 


C03E 

co87ee 

CALL 

CALATR 

pSPRITE 0. 

ce4i 

23 

INC 

HL 

fCOORD. X. 

C042 

CD4Aee 

CALL 

RDV7RM 

fle o UALOR. 

ce4S 

3C 

INC 

A 

FAUANCA 1. 

C«46 

CD4oee 

CALL 

urtv;rh 

fescreue de 

fVOLTA. 

ce49 

3A79Ce 

LD 

A, <TEHP) 

fMARCA o tem- 

C04C 

47 

LD 

B,A 

fpo. 

Ce4D 


TEHPOi 



Ce4D 

leFE 

DJNZ 

TEMPO 


Ce4F 

Cl 

POP 

BC 

fUOLTA BC. 

cese 

10E9 

DJNZ 

LOOP 

F FECHA LOOP. 

ces 2 

AF 

XOR 

A 

fLE SETAS DE 

ces3 

cDosee 

CALL 

GTSTCK 

F CURSOR. 

ces6 

FEei 

CP 

1 

fSOBE. 

cesB 

2809 

JR 

Z,RAP1D 


cesA 

FE05 

CP 

5 

F DESCE. 

cesc 

280F 

JR 

Z, LENTO 


cesE 

FE03 

CP 

3 

fDIREITA. 


com um 
a e 0 
vezes, 
pausa, 
(seta 



C06e 

CB 


RET 

Z 


ceói 

18D6 


JR 

LOOP0 

IFECHA LOOP0. 

ce^a 


RAPIDi 




ce^a 

3A79CB 


LD 

A, <TEMP> 

IDECREMENTA A 

ceóó 

FEBi 


CP 

1 

lUARIAUEL TEHP. 

ce68 

28DI 


JR 

ZrLOOP 


ceóA 

30 


DEC 

A 


C06B 

1807 


JR 

CONT 


C060 


LENTOS 



9 INCREMENTA A 

C06D 

3A79C0 


LD 

A, <TEMP> 

IVARIAOEL TEMP- 

Ce7B 

A7 


ANO 

A 


C071 

28 Ca 


JR 

Z^LOOP 


co7a 

ac 


INC 

A 


C074 


CONTs 



lATUALZZA O VA- 

C074 

3279C0 


LD 

<TEMP > r A 

ILOR DE TEHP. 

CB77 

1BC2 


JR 

LOOP 


C079 


TEHP» 

DS 

1 


ce7A 

FF 

TBLi 

DB 

BFFH 

fPADRAO DO 

C«7B 

81 


DB 

81H 

fSPRITE. 

ce7c 

81 


DB 

81H 


ce70 

81 


DB 

81H 


C07E 

81 


DB 

81H 


CB7F 

81 


DB 

81H 


CBBB 

81 


DB 

81H 


CBBl 

FF 


DB 

•FFM 


CB82 



END 




CHAVEANDO SPRITES 

Vamos apresentar agora uma maneira de se fa- 
zer com que um sprite mude de forma rapidamente. 

A idéia é muito simples. Basta definirmos vá- 
rios padrões (logicamente na tabela de padrões) e 
quando quisermos mudar rapidamente a forma do sprite 
basta altererar na tabela de atributos o terceiro ele- 
mento que controla o sprite. apontando-o para outro 
padrão (outro SPRITE). A definição dos padrões pode 
ser feita atravéz da rotina LDIRVM do BIOS. que permi- 
te que transportemos um bloco de bytes da RAM para a 
VRAM. 

O programa da figura 2.8 irá controlar um 
SPRITE pela tela. conforme uma tecla de controle do 
cursor seja pressionada, indicando uma direção. Além 
de movimentar o sprite na direção indicada ele altera- 
rá. na tabela dç atributos, o número do SPRITE fazen- 
do com que o sprite mostrado tenha o seu padrão alte- 
rado rapidamente. 


FIGURA 2.8 - Prograea chavsprite. 




ORO 

9C999H 


eB9F 


CHOETi EQU 

99FH 


e05C 


LDIRl^HsEQU 

95CH 


e06F 


INIT32SEQU 

96FH 


CBBB 

CDÓFB0 

CALL 

INIT32 

9 TRANSFERE PARA A 

ceoa 

21Ó5C0 

LD 

HL, SPRITE 

fVRAM 08 BYTES 

C9B6 

119038 

LD 

DEr3B99H 

lOUE OEFINEH 08 

C0O9 

018999 

LD 

BC, 128 

f4 SPRITES. 

CO0C 

CDSC99 

CALL 

LDIROH 


COBF 

1812 

JR 

TECLA 


C011 


INlCi 




se 



ceii Fi 


POP AF 


fRECUPERA TECLA 
^PRESSIONADA 


C«i2 

061C 

SUB 

28 

ISUBTRAI 28 PARA 
iSELECIONAR SPRITE 
ICORRETO 

C91A 

3263C0 

LO 

<DIREC> r A 

yARMAZENA Nfl DO PADRAO. 

C«17 

21Ó1C0 

LD 

HL^CORY 

1 TRANSFERE OS DADOS 

ceiA 

11001B 

LD 

DE, 1B00H 

fPARA A 

ceiD 

010400 

LD 

BC, 4 

f TABELA DE 

c«2e 

CA23 

CD3C00 

CALL 

TECLA • 

LOIRUM 

rATRIBUTOS. 
lEGPERA TECLA SER 

ce23 

CO9F00 

CALL 

CHGET 

fPRESSIONADA. 

C»26 

F5 

PUSH 

AF 

lARHAZENA CODIOO DA 
1 TECLA NO STACK 

C927 

FEIC 

CP 

28 

fUERIFICA SE ú 

C«29 

200A 

JR 

NZ,CONT 

pCASO AFIRHATIUO, 

ce2B 

3A62C0 

LD 

A, (CORX> 

f INCREHENTA 

CB2E 

CÓ01 

ADO 

A, i 

r COORDENADA X 

C«3» 

3262C0 

LO 

(CORX> ,A 

iDO SPRITE. 

C«33 

C03S 

IBOC 

JR 

CONTi 

INIC 

fSALTA P/ INIC- 

CB3S 

FEIO 

CP 

29 

fOERIFICA SE Ú '0'. 

CB37 

200A 

JR 

NZ, CONTl 

pCASO AFIRMATIOO, 

C039 

3A62C0 

LO 

A, (CORX) 

pDECREMENTA 

C«3C 

DÓ01 

8UB 

1 

p COORDENADA X 

C«3E 

3262C0 

LD 

(CORX> , A 

pDO SPRITE. 

C641 

C«43 

IBCE 

JR 

CONTl 1 

INIC 

pSALTA P/ INIC. 

ce^3 

FEIE 

CP 

30 

pOERIFICA SE é 

C»43 

200A 

JR 

NZ,CONT2 

pCASO AFIRNATIOO, 

CB47 

3AÓ1C0 

LD 

A, <CORY> 

pDECREMENTA 

CB4A 

DÓ01 

SUB 

1 

pCOORDENADA Y 

C04C 

3261C0 

LO 

(CORY>,A 

pDO SPRITE. 

C64F 

C0S1 

1BC0 

JR 

CONT2I 

INIC 

pSALTA P/ INIC. 

C0S1 

FEIF 

CP 

31 

pUERIFICA SE ■ 'A'. 

C0S3 

200A 

JR 

NZ,CONT3 

pCASO AFIRHATIOO, 

C0SS 

3A61C0 

LO 

A, (CORY> 

p INCREMENTA 

C0S0 

CÓ01 

ADO 

A,1 

pCOORDENADA Y 

cesA 

3261C0 

LD 

€CORY> , A 

pDO SPRITE. 

cesD 

cesF 

1BB2 

JR 

CONT3I 

INIC 

pSALTA P/ INIC. 

cesF 

F1 

POP 

AF 

pLIMPA STACK. 

C060 

C9 

RET 


pRETORNA AO BASIC. 

C061 

60 

CORYi DEFB 

96 


C062 

B0 

CORXi DEFB 

128 


C0Ó3 

000F 

DIRECi DEFB 

0,13 


C0Ó3 

00101B1C 

SPRITEiDEFB 

00H,10H,18H, 

ICH 

C069 

FE1CÍB10 

DEFB 

0FEH,iCH,18H 

l,10H 

C06O 

000BiB3B 

SPRITliDEFB 

00H,00H, 18H, 

3BH 

C071 

7F3B1B0B 

DEFB 

7FH,38H, 18H, 

08H 

C07S 

000BÍC3E 

8PRIT2IDEFB 

00H,0BH,1CH, 

3EH 

C079 

7F0B0808 

DEFB 

7FH,0BH,08H, 

08H 

C07D 

08080B7F 

SPRIT3IDEFB 

0BH,08H,08H, 

7FM 

C0B1 

3EÍC0800 

DEFB 

3EH, iCH,08H, 

00H 


coas END 


ORGANIZAÇÃO DA SCREEN 3 

Por ocasião da publicação do "Aprofundando-se 
no MSX”. dissemos que a SCREEN 3 era organizada de 
forma complexa e seu estudo detalhado não seria impor- 
tante, já que 0 livro tratava quas» sempre da lingua- 
gem BASIC. Agora que estamos falando de linguagem de 
máquina, achamos oportuno discutir como ela funciona. 

A organização da VRAM quando o VOP está no 
modo SCREEN 3 é dada pela figura 3.9 
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FIGURA 2.9 - Tabelas que coipõei a SCREEM 3 


í-2047: 

2048-2816. 

6912-7039. 

14336-16383. 


Tabela de padrões dos caracteres. 
Tabela dos códigos impressos na tela. 
Tabela de atributos dos sprites. 
Tabela de padrões dos sprites. 


O funcionamento e as tabelas dos sprites são 
iguais às das outras SCREENs. O que vamos explicar são 
as duas primeiras tabelas. 

A primeira tabela indica quais caracteres es- 
tão "impressos” na tela (à semelhança da SCREEN 2) e 
para facilitar o entendimento ela será comentada pos- 
teriormente. pois seu conteúdo é um pouco diferente. 

Convém aqui explicar que na SCREEN 3 um .ca- 
racter é diferente do normal, ele possui duas linhas 
de dois blocos (total=4). e cada bloco mede 4 pontos 
da SCREEN 2 (ver figura 2.10). 


FIGURA 2.10 - Partes de ui caractere da SCREEN 3. 


BI 

B2 

B3 

B4 


Um bloco pode ter uma das 16 cores geradas 
pelo VDP. Os blocos 81 e 82 são representados por um 
mesmo byte (4 bits da esquerda para 81, 4 bits da di- 
reita para 82); 83 e 84 usam o byte seguinte (cada 
caracter exige dois bytes para ser definido). 

A tabela de padrões define as cores de 81 a 
84. e. portanto, cada caractere usa dois bytes. Ela 
comporta 1024 caracteres (0-255 quatro vezes) e é di- 
vidida em quatro partes (fig 2.11). 

FIGURA 2.ÍÍ - Organização da tabela de padrões. 

Tabela Endereço Unhas de tela 

0 0-511 0- 4- 8-12-16-20 

1 512-1023 1- 5- 9-13-17-21 

2 1024-1535 2- 6-10-14-18-22 

3 1536-2047 3- 7-11-15-19-23 
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No entanto. 1024 caracteres são mais do que 
suficientes para encher a tela sem que dois deles se 
repitam (768 bastam) e. então, apenas 192 caracteres 
sao aproveitados de cada tabela (192x4=768). 

A tabela de códigos dos caracteres impressos 
é unica; mas para facilitar imaginemos que seja divi- 
dida em seis partes, cada uma responsável por quatro 
linhas consecutivas da tela (4x32=128 caracteres). As 
linhas 0 a 3 da tela são preenchidas com os caracteres 
de 0 a 31. um para cada coluna. As linhas 4 a 7 são 
preenchidas com os caracteres 32 a 63. e assim por 
diante. 

Anal ise a figura 2.12: 

FIGURA 2.Í2 - Organização da SCREEN 3. 


END 

O 


512 


1024 


1536 


I — |B1 B2|B3B4|B1 B2|B3 


jei B2|B3B4 |b1 B2|B3 

I^b4 


iB1 B2|B3B4|B1 B2|B3 

|B3|b4 


|B1 B2|B3B4|B1 B2|B3 

.|b3|b4| 


TABELA 

DE 

PADRÕES 


0 1 

2 

31 

0 1 

2 

31 

0 1 

2 

31 

0 1 

2 

31 

32 33 


63 

3233 


63 

3233 



3233 




TABELA DE CÓDIGOS 
DOS CARACTERES 
IMPRESSOS 


TRANSFORMANDO A SCREEN i EM SCREEN 2 

A quase totalidade dos jogos feitos para MSX 
usa como fundo a tela de 32 caracteres (SCREEN 1). 0 
uso generalizado da SCREEN 1 deve-se á grande veloci- 
dade e facilidade de manuseio, além da baixa quantida- 
de de memória exigida para definir seus caracteres. 
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Normalmente, a SCREEN 1 possui 256 caracteres 
definíveis com uma cor de frente e outra de fundo para 
cada oito caracteres ("octetos"). Com um pouco de téc- 
nica. a SCREEN 1 pode passar a usar 768 caracteres 
distintos e oito cores de frente e fundo para cada um 
de seus caracteres, aumentando a definição da imagem. 
Naturalmente, a memória usada na VRAM para este im- 
plemento é bem maior que a usada normalmente pela 
SCREEN 1. 

Na verdade, essa "mágica" é facilmente expli- 
cável: ela consiste em fazer o computador "pensar” que 
está operando na SCREEN 1 enquanto o VDP opera no modo 
SCREEN 2. O resultado disto é podermos I I i tera Imente ) 
digitar, listar, imprimir e até "rolar” a tela inteira 
com as facilidades da SCREEN 1 e com a definição de 
imagens da SCREEN 2. 

Basicamente, o que temos a fazer divide-se em 
dois passos. O primeiro é passar o computador para 
SCREEN 1. com isso todos os dados na VRAM e as vari- 
áveis de sistema ficam acertados para permitir avisu- 
alização dos caracteres, a digitação e a edição de 
programas. O segundo passo é mudar o VDP do modo 
SCREEN 1 para SCREEN 2 sem alterar as informações da 
memória. Isso poderia ser feito pelo comando VDP(N)=X. 
mas já existe para isto uma rotina do BIOS: SETGRP 
(&H7E). 

Vamos então para um exemplo prático: Digite o 
programa da figura 2.13 . 

FIGURA 2.13 - Prograta que transforea a SCREEN i ea 2 


Í0 COLOR í5,4,7 
20 SCREEN 1 

30 DEFUSR=&H7E:X=USR<0> 

40 FOR 1=0 TO 2: FOR J=0 TO 255: 

50 OPOKE ÓÍ44 + IM-256+J, J:NEXT J,I 
60 FOR 1=0 TO 2047:A=PEEI< ( I+7Í03) 

70 OPOKE 1+2048, A 
80 VPOKE 1+4096, A 
90 NEXT l:FOR I=8Í92 TO Í4335 
Í00 OPOKE I,3í:NEXT I:END 

Após executá-lo. veja como a tela 2 se parece 
com a tela 1. Digitando alguns comandos, você percebe- 
rá que 0 cursor só aparece no primeiro terço da tela 
(por que ?). Experimente agora alterar a tabela de 
cores (iniciada em 8192). com a seguinte alteração: 
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Í00 «viPOKE I,255WRND(Í ) :NEXT I:END 


Oepoís de rodar o programa novamente (gostou 
do festival de cores ?), experimente outras alterações 
a seu gosto. Ao final do processo a VRAM passa a fun- 
cionar da seguinte maneira: 


0-20476: 

2048-4095, 

4096-6143: 

ê 

6144-6911 , 
8192-10239: 
10240-12287: 
12288-14335: 


tabela de formas para o primeiro terço da 
tela. 

tabela de formas para o segundo terço da 
tela. 

tabela de formas para o terceiro terço da 
tela. 

tabela dos códigos impressos na tela. 
tabela de cores para o primeiro terço, 
tabela de cores para o segundo terço, 
tabela de cores para o terceiro terço. 


Além desses endereços, há também as tabelas 
dos sprites, que não sofrem alteração. 

Vamos agora juntar os conhecimentos aprendi- 
dos até agora e transformá-los em algo mais útil. 

Foi tratado no Capítulo 1 o funcionamento dos 
hooks, e se você der uma olhada no apêndice II verá 
que existem hooks de muitos comandos do BASIC, inclu- 
sive do comando SCREEN. 

Então, por que não criarmos a SCREEN 4 ? 

O programa SCREEN 4 (figura 2.14) quando exe- 
cutado, aponta o hook do comando SCREEN para o início 
da rotina. Assim sempre que o comando SCREEN for exe- 
cutado, 0 controle passará para o programa e serão 
feitas todas as inicializações para que o VOP gere a 
SCREEN 2, enquanto o Interpretador opera em SCREEN 1. 
Também o padrão do carácter 255 (cursor) é alterado na 
tabela de padrões do segundo e terceiro terço da tela 
para que o cursor seja visível por toda a tela. As 
três tabelas de cores são preenchidas com &HF0 (cor de 
fundo transparente e cor de frente branca). 

0 valor do topo do STACK será descartado, pa- 
ra que 0 controle volte ao Sistema Operacional, e não 
para a rotina do SCREEN, evitando assim, um erro de 
sintaxe. Afinal a sintaxe do comando SCREEN não aceita 
0 parâmetro quatro normalmente. 


FIGURA 2.14 - Prograia SCREEN 4 


ORO ODOOeH 

•OÓF 1NIT32SEQU OeóFH 
••7E SETGRPSEQU e07EH 
«esc LDIRVMCEOU eoscH 
•072 ZNIGRPBEQU •072H 
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••56 


FlLVRMiEQU 

•®56H 


FFC® 


HKSCREcEOU 

®FFC®H 


63EA 


ENOS 

EQU 

63EAH 


□••• 

3EC3 


LO 

A,®C3H 

? APONTA HOOK OA 

□••2 

32C®FF 


LO 

(HKSCRE) ,A 

fSCREEN P/ 0 

□••5 

21BCD® 


LO 

HLr INIC 

lINICZO. 


22C1FF 


LO 

(HK8CRE'*‘1> rHL 

□••B 

□••C 

C9 

INICi 

RET 


^RETORNA AO BASIC. 

□••C 

FE15 


CP 

15H 

fVERIFICA SE é 3. 


C® 


RET 

NZ 

fSE <> RETORNA PARA 
fROTINA DE SCREEN 

D^BF 

09 


EXX 


lARHAZENA REGISTRADORES. 

D^ie 

CD6F®® 


CALL 

INIT32 

f INICIALIZA SCREEN 1- 

0^13 

CD7E®® 


CALL 

SETGRP 

fSETA VOP P/ SCREEN 2- 

□•16 

21BF1B 


LO 

HL. IBBFH 

I TRANSFERE TABELA 

□•19 

11 •••B 


LO 

DE. 8®®H 

fOE PADRÕES P/ O 

□ •IC 

•1®®®8 


LO 

BC. 8®AH 

V2B TERCO DA 

□•IF 

CDSC®® 


CALL 

LDIRUH 

iTELA. 

0^22 

21BF1B 


LO 

HL. IBBFH 

f TRANSFERE TABELA 

□•25 

11®®1® 


LO 

DE.1®®®H 

pDE PADRÕES P/ O 

□•28 

•1®®®8 


LO 

BC. 8®®H 

l3fi TERCO DA 

D^2B 

CDSC®® 


CALL 

LOIRVM 

pTELA. 

DB2E 

21®®2® 


LO 

HL.2®®®H 

fPREENCHE TODA A 

DB31 

®1FF17 


LO 

BC.17FFH 

7 TABELA DE CORES 

DB34 

3EF® 


LO 

A. 1111®®®®B 

pCOH BRANCO < FRENTE) 

DB36 

COS6®® 


CALL 

FILVRH 

fE INCOLOR <FUNDO). 

DB39 

21F8®F 


LD 

HL.BFF8H 

1 PREENCHE COH «HFF 

DB3C 

®1®8®® 


LO 

BC. 8 

fOS 8 BYTES QUE DEFI- 

DB3F 

3EFF 


LD 

A . ®FFH 

pNEH O CURSOR NO 

0B41 

COS6®® 


CALL 

FILVRH 

|29 TERCO. 

0B44 

21F817 


LD 

HL. 17F8H 

V PREENCHE COH 4HFF 

DB47 

®1®9®® 


LD 

BC. 9 

pOS 8 BYTES QUE DEFI- 

OB4A 

3EFF 


LO 

A.®FFH 

pNEH O CURSOR NO 

DB4C 

CDS6®® 


CALL 

FILVRH 

p39 TERCO. 

DB4F 

09 


EXX 


pRETORNA VALORES 

pdos registradores 

DB5B 

33 


INC 

SP 


DBSl 

33 


INC 

SP 


0B52 

07 


RST 

1®H 

pPEGA PROX. CARACTERE 
pOU COHANDO DO BASIC 

DB53 

C9 


RET 


pRETORNA AO BASIC. 

DB54 



END 




hooks 
uti I iz 
qua I 0 
tera o 
para a 


Apl içando algumas 
(Capítulo 1 ) vamos 
ando 0 hook 
comando IPL 
hook apontando-o 
SCREEN 4, 


das Informações sobre os 
elaborar um programa que, 
do comando CMO do BASIC, (que tal 
não é implementado no sistema), al- 
para uma rotina de auxilio 


FIGURA 2.15 - Prograea CHO 




ORG 

•ceeeM 



•esc 


LDlRVHiEOU 

eescH 



c®e® 

ES 

PUSH 

HL 

pARHAZENA HL. 


ceei 

D9 

EXX 


pSALVA RE013TR08 


C®®2 

El 

POP 

HL 

pRECUPCRA HL. 


cees 

23 

INC 

HL 

pINCREHENTA HL. 


cee4 

7E 

LD 

A . ( HL > 

pCARREGA EH A O 

CODIGO 





p ASCII DO N9 OA 

TABELA. 

cees 

ES 

PU3M 

HL 

pARHAZENA HL. 


cee6 

D63® 

SUB 

'• ' 

pOOTEM O N9 DA TABELA. 

cees 

2 ieei 8 

LD 

HL.8192-8®®H pEND. DA TABELA 

DE CORES. 

ceeB 

iieees 

LD 

DE .8®®H 

pCOHPRlHENTO DA 

TABELA. 

ceeE 

47 

LD 

B.A 



ceeF 


LOOPl ■ 


pLOOP QUE APONTA 

HL P/ A 

ceeF 

19 

ADD 

HL. DE 

pTABELA DE CORES 

DE UH 

ceio 

IQFD 

DJNZ 

LOOP 1 

pDETERHINAOO TERCO 



PDA TELA. 


PDA TELA. 
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C«i2 

EB 


EX 

DE^HL 

rPAR -^DE ' RECEBE END. 






?DA TABELA DE CORES 

cei3 

Ei 


POP 

HL 

rRECUPERA HL E 

Ctl4 

23 


INC 

HL 

I INCREHENTA. 

ceis 

7E 


LD 

A » C HL > 

rLE COO. DO 19 DIGITO. 

C«16 

FE41 


CP 

'A ' 

ITESTA SE E LETRA. 

ceie 

38e2 


JR 

C^CONT 

»SE AFIRMATIUO 

ceiA 

DA97 


SUB 

7 

ISUBTRAI 7. 

ceic 


CONTi 




ceic 

D63e 


SUB 

'0 ' 

pOBTEM VALOR CORRETO 

ceiE 

E60F 


ANO 

0000111 IB 

pOBTEM 19 NIBBLE. 

c«2e 

CB27 


SLA 

A 

pDESLOCA BITS 

C«22 

CB27 


8LA 

A 

pP/ ESQUERDA. 

C»24 

CB27 


SLA 

A 


C«26 

CB27 


SLA 

A 


ce2e 

47 


LD 

B , A 

pGUARDA 10 NIBBLE EM B. 

C929 

23 


INC 

HL 

p INCREMENTA HL. 

C«2A 

7E 


LD 

A, (HL> 

pLE COD. DO 29 DIGITO. 

C«2B 

FE41 


CP 

'A ' 

pVERIFICA SE E LETRA. 

ce2D 

3802 


JR 

CrCONTl 

pSE AFIRMATIVO 

C#2F 

D607 


SUB 

7 

pBUBTRAI 7. 

C«31 


CONTl 1 




C«31 

D630 


SUB 

'0' 

pOBTEM VALOR DO 






p29 NIBBLE. 

C«33 

B0 


OR 

B 

pJUNTA OS 2 NIBBLES. 

C»34 

4F 


LD 

C,A 

p TRANSFERE O VALOR 

ce35 

0600 


LD 

B,0 

pPARA 0 PAR BC. 

C#37 

ES 


PUSH 

HL 


C«38 

CS 


PUSH 

BC 


C«39 

El 


POP 

HL 


C93A 

29 


ADD 

HL, HL 


ce3B 

29 


ADD 

HL , HL 

pMULTIPLICA POR 8. 

C«3C 

29 


ADD 

HL, HL 


C«30 

ES 


PUSH 

HL 


C«3E 

Cl 


POP 

BC 


cesF 

Ei 


POP 

HL 


c«4e 

7B 


LD 

A,E 

pSOMA BC COM DE PARA 

CB4i 

81 


ADD 

A,C 

pOBTER O ENDEREÇO ONDE 

ce42 

SF 


LD 

E,A 

pSE INICIA A TABELA 

C«43 

3E00 


LD 

A,0 

pDE CORES QUE INDICA AS 

C«45 

8A 


AOC 

A, D 

pCORES DE FRENTE E DE 

C«4Ó 

80 


ADD 

A,B 

pFUNDO DE UM DETÉR- 

ce47 

S7 


LD 

D, A 

pHINAOO CARACTERE. 

c«4a 

23 


INC 

HL 

pAPONTA HL P/ A STRINO. 

C»49 

010800 


LD 

BC, 8 

pCARREGA BC COM O 






p TAMANHO DA SIRING. 

C#4C 

CDSC00 


CALL 

LDIRVM 

pCOPJA STRING NA VRAM. 

CB4F 

33 


INC 

SP 

f LIMPA STACK. 

cese 

33 


INC 

SP 


cesi 

D9 


EXX 


pRECUPERA 08 REGISTROS. 

ces2 

CS 


PUSH 

BC 

pARMAZENA BC. 

ces3 

060C 


LD 

B,12 


ces5 


LOOP2t 



pLOOP QUE APONTA HL 

cess 

23 


INC 

HL 

pPARA 0 FINAL DO 

ces6 

10FD 


DJNZ 

LOOP2 

p COMANDO. 

cesa 

Cl 


POP 

BC 

pRECUPERA BC. 

ces9 

D7 


RST 

10H 

pLE PROX. CARACTERE. 

cesA 

C9 


RET 


pRETORNA AO BASIC. 

cesB 



END 




0 programa CMD auxilia a SCREEN A na manipu- 
lação das tabelas de cores de um caracter. 

Ele funciona da seguinte maneira. Quando o 
Interpretador chama o hook do comando CMD, o par HL 
aponta para o início dos parâmetros do comando. Você 
pode criar a sintaxe ou a função que desejar. No caso 
criamos a seguinte sintaxe para o CMD. 
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CMO-XYYzzzzzzzz” 

í caracteres que definirão a 

cor de frente e fundo. 

> código do caracter em 
hexadec ima i . 

* > número do terço da tela a 

que corresponde o carácter. 



ura 2.16 um exemplo 

de uso do CMD. 

0 do ChD 




c:or cie 

cor de 

código do 


f r ent e 

fundo 

carácter 


i2(«HC> 


«HCB 

íí 

Í2(&HC) 

íí (&HI3) 

&HCB 


í2(füHC) 

í í ( &l IB ) 

&HCB 

íí 

2 

1.3(8HD) 

&H2D 

... 

2 

Í3(&HD) 

8H2D 

- 

2 

9 

&H29 

) 

Í5(&HB> 

8 

SHFa 

0 


8 

&HF8 

0 


0 comando correspondente à figura 2.16 seria: 
CMD"í48Mí^— ) * •>" 


0 valor que estiver no topo do STACK deve ser 
sempre descartado pois caso contrário, ao encontrar o 
primeiro comando de retorno ( RET.RETZ. etc ) a execução 
voltará para o comando CMD que nada mais faz que cha- 
mar a rotina de erro. 

Fica como exercício fazer com que o comando 
CMD leia também variáveis tipo string. 
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Neste capítulo veremos como tirar melhor pro- 
veito da sua impressora e como compatibilizar o micro 
com 0 padrão de caracteres da impressora. Esse pro- 
grama pode ser muito* útil para os possuidores do Ex- 
pert que utilizem uma impressora padrão ABICOMP. 

Há também várias versões de cópia gráfica e 
um programa que transforma uma MôNICA em uma impres- 
sora MSX. 


COMPATIBILIZANDO O SEU MSX 
COM A IMPRESSORA 

A maioria das impressoras nacionais possui os 
caracteres acentuados usados na língua portuguesa, 
respeitando o padrão ABICOMP. Porém se você reparar 
bem na tabela de caracteres da impressora e na tabela 
de caracteres do micro, verá que o código das letras 
acentuadas estão embaralhados, uns em relação aos ou- 
tros. 

Se você possuí o Expert. coisas muito estra- 
nhas podem acontecer quando um carácter é enviado para 
a impressora. Já o HOTBIT faz as devidas conversões 
para o padrão ABICOMP. 

Agora vamos ver o porquê dessas coisas estra- 
nhas acontecerem. O padrão ASCII (americano por sinal) 
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determina a função dos 127 primeiros caracteres do 
micro ou da impressora. Nas impressoras importadas, 
só haviam esses caracteres. Os de código maiores que 
127 ou eram uma repetição dos 127 primeiros ou não 
apresentavam função específica. Isso porque a maioria 
dos micros só enviava 7 bits para a impressora, o que 
permite no máximo 128 códigos diferentes. 

Com a explosão da microinformática no Brasil, 
foi criado o padrão ABICOMP, que nada mais é do que a 
redefinição dos caracteres maiores que 127 pelos ca- 
racteres especiais usados em nossa língua. 

Mais recentemente (1986), foi criado o padrão 
ABNT (Associação Brasileira de Normas Técnicas), que é 
0 padrão respeitado pelo Expert 1.1 . 

Os caracteres de &H86 a &H9F, porém, continu- 
aram com a mesma função dos 32 primeiros (caracteres 
de controle) ou sem nenhuma função, dependendo do fa- 
bricante da impressora. 

Em certos modelos de impressora, você pode, 
por exemplo, ativar o modo expandido enviando o ca- 
rácter &H0E ou &H8E. Note que: 


&H0E=«Be000í Í0Í 
&H8E==&Bi000í Í0i 


O caracter &H0E é o &H8E com o último bit 
setado e como naquela época a maioria dos micros só 
enviava 7 bits para a impressora, isso não tinha 
muita importância. 

As acentuadas nos MSX começam no carácter 
&H7D e terminam no &HB9 e portanto, se compararmos as 
tabelas de caracteres do seu MSX e a de uma impressora 
que respeite o padrão ABICOMP ou ABNT, 32 caracteres 
(de &H7D a &H9F ) não serão reconhecidos pela impres- 
sora como letras a serem impressas mas como comandos. 
A figura 3.1 apresenta a tabela de caracteres do Ex- 
pert, do HOTBIT e de uma impressora padrão ABICOMP (no 
caso, uma MÔNICA PLUS). 

Note que as três tabelas estão organizadas de 
maneiras diferentes: as dos MSX devem ser lidas linha 
por linha de cima para baixo, enquanto que a da MôNICA 
deve ser consultada coluna por coluna da esquerda para 
direita. 

O símbolo da "libra", por exemplo, na tabela 
do HOTBIT está na linha 9, coluna C. Portanto seu có- 
digo em hexadecimal será &H9C. Na tabela da MôNICA, 
este mesmo símbolo está na coluna B, linha C. Neste 
caso 0 seu código, em hexadecimal, será &HBC. 
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FIGURA 3.ÍA - Tabela de caracteres do Expert í.® 
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FIGURA 3.1B - Tabela de caracteres do Expert 1.1 e HOTBIT 1.1 
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FIGURA 3.1C - Tabela da iipressora MôNICA da Elcbra 
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Existe também o fato de que nem sempre os 
caracteres acentuados do micro e da impressora repre- 
sentam a mesma letra acentuada. Por exemploi os carac- 
teres &H0E e 8.H8E ativam o modo expandido, e se você 
comandar 

LPRINT "ú" 

a impressora poderá começar a imprimir no modo expan- 
dido. 

Uma maneira de se conseguir que algo seja im- 
pressso sem problemas, ou seja, com as devidas letras 
acentuadas, é colocar no lugar o caracter que possua o 
mesmo código da letra acentuada na impressora. 

Por exemplo: No EXPERT 1.0 o "ç" possui o có- 
digo 126. só que numa impressora padrão ABICOMP (no 
caso uma MôNICA 6030) o "ç" possue o código 166. Por- 
tanto, para que a impressora possa imprimf-lo devemos 
enviar-lhe esse código, que corresponde ao carácter 
"i”. No texto, então, deveríamos escrever um ”i” no 
lugar de todo "ç". 

Essa é uma maneira meio indecente de se fazer 
as coisas, mas felizmente funciona. 

A outra maneira é interceptarmos o carácter 
que está sendo enviado para a impressora, através do 
hook da rotina LPTOUT do BIOS e verificar se ele é uma 
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letra acentuada, fazendo a devida conversão de acordo 
com 0 padrão da impressora que está sendo usada. 
Vejamos o programa da figura 3.2 . 

FIGURA 3.2 - Prograaa Filtro 


ceee 

FE60 

ceo2 

2813 

ceo4 

FE7E 

ceo6 

D8 

ceo7 

FEB8 

ceo9 

oe 

ceoA 

ES 

ceoB 

DS 

ceec 

219CBF 

ceoF 

1600 

ceii 

5F 

cei2 

19 

cei3 

7E 

cei4 

Dl 

cois 

El 

cei6 

cei7 

C9 

cei7 

3EC6 

cei9 

ceiA 

C9 

ceiA 

A6207ED9 

ceiE 

C8 

ceiF 

C3C4C1CS 

C023 

60 

C024 

C9CAC7CE 

Ce2B 

CD 

C029 

CBA4A2A8 

C02D 

DS 

C02E 

BSB2B3B0 

C032 

D8 

C033 

D6DAD3D9 

C037 

20 

ce38 

20202020 

C03C 

C2 

C03D 

CCD1D7CF 

C04i 

AF 

C042 

DCODOE20 

C046 

20 

C047 

20202020 

C04B 

20 

C04C 

A4CT4AECE 

cese 

B3 

cesi 

B3B9D920 

cess 

ces6 

20 


CHlNUs 


ORG 

CP 

JR 

CP 

RET 

CP 

RET 

PUSH 

PUSH 

LD 

LO 

LO 

AOO 

LO 

POP 

POP 

RET 

LO 

RET 


•coeoH 

60H 

Z.CMINU 

7EM 


pOERiriCA SE ■ ^c". 
fCASO AFIRM. SALTA. 

? TESTA SE é MENOR 
fOUE «H7E. 

tCASO AFIRM. RETORNA. 
lOERIFICA SE á 
ICARACTERE GRAFICO. 
ICASO AFIRM. RETORNA, 
f ARMAZENA HL. 

9ARMAZENA OE. 
HL,TABCOV-7EH f APONTA ML P/ TABELA. 
DrO 

ICOOIGO 00 CARACTERE. 
fSOMA HL COM OE. 
«CARREGA A COM COOIOO 
«EOUIV. OA IMPRESSORA. 
«RESTAURA OE. 

«RESTAURA HL. 

«RETORNA AO BASIC. 


C 

eBBH 

NC 
HL 
DE 


ErA 

HL. DE 
A. <HL> 

DE 

HL 


A.OCÓH 


TABCOUI 


«CARREGA A COM 'c ' 
«RETORNA AO BASIC. 


DEFB •A6H.e20H.e7EH.OO7H.OC8H 
OEFB •C3H.eC4H.eClH.eCSH.e60H 
DEFB eC9H.eCAH.eC7H.eCEH.eCDH 
DEFB eCBH.eA4H.eA2H.eA8H.eOSH 
DEFB eBSH.eB2H.eB3H.eBeH.eD0H 
DEFB e06H.eDAH.eD3H.e09H.e2eH 
DEFB e 2 eH.e 2 eH.e 2 eH.e 2 eH.ec 2 H 
DEFB eCCH.eDlH.eD7H.eCFH.eAFH 
DEFB eDCH.eDDH.eOEH.e 2 eH.e 2 eH 
DEFB e 2 eH.e 2 eH.O 2 eH.e 2 OH.e 2 eH 
DEFB eA4H.eC4H.OAEH.eCEH.eB3H 
DEFB eB3H.eB9H.eD9H.e2eH.e2eH 
END 


Note que esse programa pode compatibilizar 0 
seu micro com qualquer padrão de impressora, desde que 
ela possua os caracteres acentuados. 

Se sua impressora não respeitar 0 padrão 
ABICOMP. basta alterar a TABCOV do progama do modo 
descrito a seguir. 

A tabela representa a sequãncía de caracteres 
acentuados do micro, a partir do caracter &H 7 E. Por- 
tanto no caso de um EXPERT 1 . 0 . 0 primeiro elemento da 
tabela representaria 0 ”C”. Aí basta procurar qual 0 
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código do "C” na sua impressora e colocá-lo como o 
primeiro elemento da tabela. E assim sucessivamente 
até 0 final dos caracteres acentuados. 


TRANSFORMANDO UMA MôNICA 
NUMA IMPRESSORA MSX 

Alguns modelos da impressora MôNICA da Elebra 
permitem a redefinição dos caracteres. Essa redefini- 
ção respeita alguns parâmetros Que não são intuito 
deste livro descrever. Se houver interesse nos parâ- 
metros dessa redefinição procure maiores informações 
no manual da MôNICA. 

A fonte de caracteres redefinidos ocupa uma 
parte do buffer da impressora e, para que a MôNICA 
comece a imprimir com os caracteres redefinidos, é 
necessário ativar o modo Qualidade Carta com os carac- 
teres &H1B (ESC) e ”G" e o modo Fonte Alternativa com 
os caracteres &H1B (ESC) e ”7''. Para desativar, com os 
caracteres, &H1B, ~H” (Qualidade Carta) e &H1B, 6 

(Fonte Alternativa). 

Se um caracter não for redefinido e a impres- 
sora estiver com a seleção de fonte alternativa ativa 
0 caracter impresso terá o formato da fonte residente. 

O programa a seguir gera um arquivo em disco, 
lendo a tabela de caracteres do seu MSX e definindo 
uma fonte para a MôNICA, com os caracteres gráficos. 

FIGURA 3.3 - Prograia IMPMSX.BAS 


2<ò HENRIQUE: DE FIGLJEREDO LUZ 

30 '* IMPMSX- JULHO -1986 ^ 

50 DEFTNT A~Z:CLS 

60 PRINT"! Gerar arquivo fonte. 

70 PRINT"2 Carregar fonte." 

80 A4=INPUT3i<í > 

90 IF A*0"i" THEN GOTO 4Í0 

iOO PR INT s PR INT"GERANDO ARQUIUO" , , "AGUAR 

DE , m m'' 

íiO DATA i , 3i , 64 , i55 , i59, -33, í 68 , 175, -72 
,184,192,-80,192,254,-31 
120 OPEN"IMPMSX. ARQ" FOR OUTPUT ASHl 
130 PRINTttl ,27;91 ? 
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Í40 FOR Y=0 TO 4 

Í50 READ IN,FI,CO 

Í60 FOR T=IN TO FI 

170 DIM 0(7,7): P1=Í70:P2=Í 70 

180 FOR L=0 TO 7 

190 IF PEEK <8«T+&H1BBF+L)=0 THEN 350 
200 A*=BIN%(PEEK<8»T-HSH1BBF+L> ) 

210 IF LEN(A!&)<>8 THENA9i="0"+Al : G0T0210 
220 Z=0 

230 FOR C-7 TO 0 STEP -1 

240 IF MID4(AÍ,C+l,l)="l"THEND(L,C)=:3+5it 
(C+l): IF Z=0 THEN D<L,C)=D<L,C)+128:Z=1 
250 NEXT C 
260 NEXT L 

270 PRINT«i,CO+T;PÍ fP2jO; 

280 FOR L=0 TO 7 
290 FOR C=0 TO 7 

300 IF D<L,C)O0 THEN PR INT« 1 , D < L , C ) ; 

310 NEXT C:NEXT L 

320 ER ASE D : PR INT« 1 , 0 ; : NEXT T 

330 NEXT Y:PRINT«1,27;93 

340 CLOSE«l:GOTO 400 

350 IF L>3 THEN GOTO 380 

360 Pl=PlAND(255-(2'' (7-L*2) ) ) 

370 GOTO 260 

380 P2==P2AND<255-(2^<15-2»L) ) ) 

390 GOTO 260 

400 PRINT"ARQUIOO GERADO "PRESSIONE QU 
ALOUER TECLA":A4=INPUT!B<1):RUN 
410 P0KE«HFFB6,20i 
420 BLOAD"IMPMSX.com" 

430 CLSnPRINT"! Expert versão 1.0" 

440 PRINT"2 ....Expert versão 1.1" 

450 PRINT"3 HOTBIT" 

460 A<B--:=INPUT4(1) :IF A*< >"1"THENG0SUB640 
470 P0KE&HF417,255 

480 OPEN"IMPMSX.ARô" FOR INPUT ASHl 

490 INPUT«1,L 

500 LPRINT CHRÍ(L); 

510 IF EOF(l) THEN CLOSEttl ELSE GOTO 490 
520 P0KE&HFFB6,195 
530 P0KE«HFFB7,0 


540 POKE«HFFB8,&HD0 

550 IF M="í" THEN POKE&HF4i7,0 

560 LPRINT CHR*(27)"Ô"CHR%( Í6) 

570 LPRINT" ©•?♦♦♦ •001(Í'9;JÍ*" 

580 LPRINT" + -^tH 1-+I -n X/\+"? 

590 FOR L=32T0 255 
600 LPRINT CHR%(L); 

6i0 NEXT L 

620 LPRINT CHR5<27)"Q"CHRi<80) 

630 PRINT"MICRO L IBER ADO" s EIND 

640 DATA 7E,20, A6,D9,C8,C3, A2,CÍ ,BB ,C6,C 

9 , C0 , B 1 , B7 , A3 , A9 , B2 , A í , A8 , D5 , B5 , D2 , D4 r D0 

,D8,D6,DA,B2,B9,20 

650 DATA 20, 20, 20, 20, C2 

660 DATA CC,Dí ,D7,CF,AF,DC,DD,20,20,20,2 
0,20,20,20,20,A4,C4,AE,CE,B3,D3,B9,D9 
670 RESTORE 640: FOR L==0 TO S7:READ Z%sP 
OKE 8HD136+L,0AL("&H"+Z1li> : NEXT : P0KE&HD12 
i,&H60:RETURN 

Quando uma fonte dessas é carregada na MôNICA 
e é ativada pelos devidos caracteres de controle, a 
tabela de caracteres da impressora fica como mostrado 
na figura 3.4 . 

FIGURA 3.4 - Tabela de caracteres coi fonte carregada. 
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Desse modo já conseguimos fazer a MõNICA im- 
primir todos os caracteres gráficos do MSX. Agora va- 
mos apresentar e comentar um programa que. tendo sido 
0 hook da LPTOUT desviado para ele. gerencia a MôNICA 
para ativar ou não a fonte de caracteres e imprimir o 
devido símbolo desejado. 

FIGURA 3.5 - Prograaa IHPHSX.ASH 


ORG eoeeeH 


e«AS 


LRTOUTtEQU 

OA5H 

7 


323301 


LO 

(CARAO ,A 

fARNAZENA CARACTERE 

oeea 

09 


EXX 


9ARHAZENA REGISTR AOORES 

0««4 

3A2A01 


LO 

A. (FLAG) 

tVERIFICA se PRECEOIOO 

oeez 

FEFF 


CP 

OFFH 

IPELO COOIGO 1 

D099 

CA9AOO 


JP 

Z.PRI32 

iSALTA P/ PRI32 

Deec 

3A2E01 


LO 

A, (FLESO 

fUERIFICA SE PRECEOIOO 

De«F 

FEFF 


CP 

OFFH 

fpor esc 

oeii 

2854 


JR 

ZrTESC 

fcaso afirm. salta 
fp/ TESC 

0013 

3A2BD1 


LO 

A, <FLCOL> 

pOERIFICA SE PRECEOIOO 

oeió 

FEFF 


CP 

OFFH 

fpor esc 'o' 

oeiB 

2872 


JR 

Z,RESCOL 

fCaso afirm. salta 

fP7 RESCOL 

DOÍA 

3A3301 


LO 

A, (CARAO 

VPEGA COOIGO CARACTERE 

D«iD 

FEOl 


CP 

1 

fUERIFICA SE UAI SER 

fenuiaoo caractere 

fGRAFICO ( QUE 32 

0«iF 

CACEOO 


JP 

ZrSETFLG 

fCaso afirm. salta 
fP/ setflg 

De22 

FEIB 


CP 

IBH 

fUERIFICA SE ■ ESC 

DB24 

CA9300 


JP 

Z.SETESC 

fcaso afirm salta 

fp/ SETESC 

0027 

FE20 


CP 

20H 

fUERIFICA SE A CARACTERE 

foe controle 

0029 

3837 


JR 

CrFIH 

fCASO afirm SALTA P/ FIM 

002B 

FE7E 


CP 

07EH 

fUERIFICA SE A CARACTERE. 
fGRAFICO > QUE OH7E 

0020 

020700 


JP 

NC^CGRA 

fSE afirm. salta P/ CGRA 

0030 

FE60 


CP 

60H 

fUERIFICA SE í* 'c ' 

0032 

CA2201 


JP 

ZrCHINU 

fSE afirm. salta P/ CMINU 

0035 


TSTFFAi 



0035 

21B6FF 


LO 

HLr OFFB6H 

^RESTITUI O HOOK 

0038 

36C9 


LO 

(HL) ,OC9H 

fOA LPTOUT 

D03A 

213401 


LO 

HLr TAB2 

faponta hl p/ esc 'H' 

0030 

0604 


LO 

Br4 


003F 

3A2C01 


LO 

Ar (FLOO 

fUERIFICA SE LETRAS 

0042 

FEFF 


CP 

OFFH 

fOEUEM SER IMPRESSAS 
fEM qualioaoe carta 

0044 

2004 


JR 

NZrCONTlN 

fSE afirm. uai p/ contin 

0046 

23 


INC 

HL 

fAPONTA hl para 

0047 

23 


INC 

HL 

fESC ’6 ' 

0048 

0602 


LO 

Br2 


004A 


CONTINs 



004A 

3A2001 


LO 

Ar (FLFA) 

fUERIFICA SE F.A. 

0040 

FEFF 


CP 

OFFH 

fESTA atiuaoa 

004F 

200C 


JR 

NZrREST 

fSE afirm. salta p/ rest 

0051 

0051 

7E 

LACOí 

LO 

A r ( HL > 

fOESATIUA fonte a. 

0052 

C0A500 


CALL 

LPTOUT 

fE q. carta quanoo 

0055 

23 


INC 

HL 

fnecessario 

0056 

10F9 


OJNZ 

LACO 


0058 

212001 


LO 

HLrFLFA 

fresseta FLAG oe 

OOSB 

3600 


LO 

( HL > , O 

F fonte a. 

0050 

0050 

21B6FF 

RESTs 

LO 

HLrOFFB6H 

faponta hook OA LPTOUT 

0060 

36C3 


LO 

(HL) rOC3H 

fpara este programa 

0062 

0062 

09 

FIHr 

EXX 


F RETOMA UALORES OOS 

0063 

3A3301 


LO 

Ar (CARAO 

fREGISTRAOORES 

0066 

C9 


RET 


fUOLTA ao interpretaoor 

0067 

0067 

3A3301 

TESC« 

LO 

A. (CARAO 

fUERIFICA SE FOI 
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0 « 6 A 

FE47 


CP 

'G " 

pENVIADO ESC '0 ' 

D» 6 C 

2007 


JR 

NZrCONT 

fSE AFIRM. SETA 

D»6E 

212C01 


LO 

HL , FLOC 

pFLAG OE QUALIDADE 

D«71 

36FF 


LO 

<ML> ,0FFH 

> CARTA. 

D«73 

1810 


JR 

TERESC 

ISALTA P/ TERESC 

D®75 


CONT* 



fVERIFICA SE FOI 

0®73 

FE48 


CP 


lENUIADO ESC 'H ' 

D977 

2007 


JR 

NZ^CONTI 

?SE AFIRM. RESETA 

D«79 

212C01 


LO 

HL,FL0C 

tFLAO OE QUALIDADE 

De7C 

3600 


LO 

(HL> ,0 

; CARTA. 

D«7E 

oeee 

1803 

CONTIi 

JR 

TERESC 

1 SALTA P/ TERESC 

Deee 

212801 


LO 

HL,FLCOL 

f PRESUME-SE QUE FOI 

0083 

36FF 


LO 

<HL> r«FFH 

lENUIAOO ESC 'Q ' 

IFLCOL ■ SETAOA P/QUE 
pPROX. CARACTER SEJA EN- 
IVIADO SEM INTERFERENCIA. 

0083 

0083 

212E01 

TER ESC 1 

LO 

HLrFLESC 

VRESETA FLAO 

0088 

3600 


LO 

< HL > , 0 

lOE ESC 

O08A 

1806 


JR 

FIM 

pSALTA P/ FIM 

D08C 


RESCOLi 



O08C 

212801 


LO 

HL.FLCOL 

9 RESETA FLAG DE 

O08F 

3600 


LO 

( HL > r 8 

9 COLUNA 

0091 

0093 

18CF 

SETESCs 

JR 

FIM 

iSALTA P/ FIM 

0093 

212ED1 


LO 

HLpFLESC 

9 SETA FLAO 

0096 

36FF 


LO 

<HL) r 0 FFH 

9 DE ESC 

0098 

O09A 

18C8 

PRI32S 

JR 

FIM 

9 SALTA P/ FIM 

O09A 

212A01 


LO 

HLrFLAO 

9 RESETA FLAG DE CARACTERE 

0090 

O09F 

3600 

IHPFAi 

LO 

<HL) ,0 

9 MENOR QUE 32 

D09F 

212001 


LO 

HLrFLFA 

9 UERIFICA SE 

O0A2 

7E 


LO 

A , < HL > 

9 FONTE A. ESTA 

O0A3 

FEFF 


CP 

0FFH 

9 ATIUA 

O0AS 

2888 


JR 

Z,FIM 

9SE AFIRM. SALTA P/ FIM 

D0A7 

36FF 


LO 

CHL> ,235 

9 SETA FLAG DE FONTE A. 

D0A9 

21B6FF 


LO 

HL,0FFB6H 

9 RESTITUI HOOK OA 

O0AC 

36C9 


LO 

<HL) ,0C9H 

9 LPTOUT 

O0AE 

212F01 


LO 

HL, INICTAB 

9 APONTA HL P/ TABELA 

D0B1 

0605 


LD 

8,5 

9 CARREGA 8 COM 5 P/ ENUIO. 

0083 

3A2C01 


LO 

A, <FL0C> 

9 SE IMPRESSORA JA 

0086 

FE00 


CP 

0 

9 ESTIUER COM QUALIDADE 

0088 

2804 


JR 

Z,LOOP 

9 CARTA ATIVADA NAO ENVIA 

008 A 

23 


INC 

HL 

9 ESC '0' AVANÇANDO 

0088 

23 


INC 

HL 

92 ELEMENTOS DA TABELA. 

008 C 

0603 


LO 

8,3 

9 CARREGA B COM 3 P/ ENVIO. 

D08E 


LOOPs 



9 LOOP QUE ENVIA 3 OU 

008 E 

7E 


LO 

A, (HL> 

95 CARACTERES P/ QUE 

D0BF 

COAS00 


CALL 

LPTOUT 

9 SEJA IMPRESSO CARACTER 

D0C2 

23 


INC 

HL 

9 GRAFICO MENOR QUE 

O0C3 

10F9 


OJNZ 

LOOP 

9 32 . 

O0C3 

2186FF 


LO 

HL,0FFB6H 

9 APONTA HOOK NOVAMENTE 

O0C8 

36C3 


LO 

<HL> ,0C3H 

9 PARA ESTE PROGRAMA . 

O0CA 

33 


INC 

SP 

9 OESCARTA VALOR DO STACK . 

O0CB 

33 


INC 

SP 


O0CC 

O0CE 

1894 

SETFLOS 

JR 

FIM 

9SALTA P/ FIM . 

D0CE 

212A01 


LO 

HL,FLAG 

9SETA FLAG QUANDO ■ 

O0D1 

36FF 


LD 

<HL> ,0FFH 

9 ENVIA 00 caractere 1 • 

0003 

33 


INC 

SP 

9 OESCARTA VALOR DO STACK. 

0004 

33 


INC 

SP 


0005 

0007 

1888 

CGR Al 

JR 

FIM 

iSALTA P/ fim 

0007 

3A3301 


LD 

A, (carao 

ICARREGA A COM CARACTERE 

O0DA 

FEC0 


CP 

0C0H 

9 VERIFICA SE > QUE 6MC0« 

O0OC 

3018 


JR 

NC, CAMAC0 

iSE AFIRM. VAI P/ CAMAC0. 

O0OE 

FEB8 


CP 

08 8H 

9 VERIFICA SE > QUE 6 HB 8 , 

O0E0 

301E 


JR 

NC,CAIJGI 

9SE AFIRM. VAI P/ CAI JGI . 

D0E2 

FEB0 


CP 

0B0H 

9 VERIFICA SE ú 






LETRA ACENTUADA • 

O0E4 

3028 


JR 

NC, FILTRO 

ISALTA P/ FILTRO* 

O0E6 

FEA8 


CP 

0A8H 

9 VERIFICA SE ■ > QUE 6HA8 • 

O0E8 

3010 


JR 

NC, INTERR 

iSE AFIRM SALTA P/ INTERR , 
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D9EA 

FEA0 

CP 

0A0H 

rOERIFICA SE 0 > 0UE 0HA0 

D0CC 

3020 

JR 

NC, FILTRO 


DeEE 

FE9B 

CP 

9BH 

fUERIFICA SE é ( 0UE 0H9B 

o^re 

381C 

JR 

C, FILTRO 

fSE AFIRH. SALTA P/FILTRO 

D9F2 

0621 

SUB 

21H 

» CONVERTE O CARACTERE. 

D«F4 

323301 

LO 

(CARAO rA 

pARHAZENA O COOIGO 
9 EH CARAC . 

D0F7 

1BA6 

JR 

IMPFA 

fVAI IHPRIHIR EM F.A. 

0«F9 


CAHAC0K 



D0F9 

D61F 

SUB 

IFH 

pCONVERTE CARACTERE. 

O0FB 

323301 

LO 

CCARAO rA 

pARHAZENA O COOIGO 
pEH CARAC. 

D0FE 

1B9F 

JR 

IHPFA 

PVAI IHPRIHIR EH F.A. 

D100 


CAIJGI 1 



D100 

0650 

SUB 

S0H 

p CONVERTE CARACTERE. 

D102 

323301 

LO 

(CARAC) r A 

pARHAZENA O COOIGO 
pEH CARAC. 

D105 

1898 

JR 

IHPFA 

pVAI IMPRIMIR EH F.A. 

D107 


INTERRi 



D107 

0648 

SUB 

48H 

p CONVERTE CARACTERE. 

D109 

323301 

LO 

(CARAC) r A 

pARHAZENA O COOIGO 
pEH CARAC . 

D10C 

1891 

JR 

IHPFA 

pVAI IMPRIMIR EM F.A. 

D10E 


FILTRO* 



O10E 

FE60 

CP 

60H 

p VERIFICA SE á 'ç'. 

0110 

2810 

JR 

Zr CHINU 

pSE AFIRH. VAI P/CHINU. 

0112 

213801 

LO 

HLrTABCOU 

pAPONTA HL P/ INICIO 
pOA TABELA DE CONVERSÃO. 

OllS 

067E 

SUB 

7EH 

pSUBTRAI AH7D. 

0117 

1600 

LO 

Or0 

p TRANSFERE VALOR 

0119 

5F 

LO 

ErA 

pOE A P7 OE . 

OllA 

19 

ADO 

HLrOE 

pSOHA COH HL. 

OllB 

7E 

LO 

Ar (HL) 

pCARREGA A COM CARACTERE 
pACENTUADO DA IMPRESSORA. 

DllC 

323301 

LO 

(CARAC) r A 

pARHAZENA EM CARAC. 

OllF 

C33SO0 

JP 

TSTFFA 

p SALTA P/ TSTFFA. 

0122 


CMINUs 



0122 

3EC6 

LO 

Ar 0C6H 

p CONVERTE NO 'c ’ 
PDA IMPRESSORA • 

0124 

323301 

LO 

(CARAC) r A 

pARHAZENA EH CARAC. 

0127 

C33SO0 

JP 

TSTFFA 

p SALTA P/ TSTFFA. 

012A 

00 

FLAG* OEFB 

0 


012B 

00 

FLCOLs OEFB 

0 


012C 

00 

FL0CS OEFB 

0 


0120 

00 

FLFA* OEFB 

0 


012E 

00 

FLESC* OEFB 

0 


012F 

1B471B37 

INICTABOEFB 

27r71r27r55 


0133 

00 

CARAC* OEFB 

0 


0134 

18481B36 

TAB2I OEFB 

27r72r27r54 


0138 

A6807E20 

TABCOUSOEFB 

0A6Hr80Hr7EHr 

20H 

013C 

C8C3C4C1 

OEFB 

0C8H r 0C3H r 0C4H r 0C1H 

0140 

C560C9CA 

OEFB 

0CSHr 60H.0C9H 

r0CAH 

0144 

2020COCB 

OEFB 

20Hr20Hr0CDHr 

0CBH 

0148 

A400A8D5 

OEFB 

0A4Hr00V0A8Hr 

0D5H 

014C 

BSB2B3B0 

OEFB 

0BSH r 0B2H r 0B3H * 0B0H 

0150 

08062003 

OEFB 

0D8Hr0O6H.20H 

r0O3H 

0154 

09202020 

OEFB 

0O9Hr20Hr20Hr 

20H 

0158 

2020C2CC 

OEFB 

20Hr20Hr0C2Hr 

0CCH 

OISC 

D107CFAF 

OEFB 

00 1 H r 0O7H r 0CFH r 0AFH 

0160 

OCDDDE20 

OEFB 

0OCH r 0ODH r 0OEH r 20H 

0164 

20202020 

OEFB 

20H r 20H r 20H r 20H 

0168 

2020A4C4 

OEFB 

20Hr20Hr0A4Hr 

0C4H 

D16C 

2020B3B3 

OEFB 

20Hr20Hr0B3Hr 

0B3H 

0170 

2020B3B3 

OEFB 

20Hr20Hr0B3Hr 

0B3H 

0174 


END 




A maneira de se imprimir no vídeo um carác- 
ter menor que 3S é comandar 


PRINT CHRÍ(Í )CHR!B(64+n) 
onde n é 0 codigo do carácter. Quando um desses carac- 
teres é enviado para a impressora, tudo se passa da 
mesma forma, desde que a variável do sistema NTMSXP 

Rq 


indique uma impressora MSX conectada ao micro. 

Quando, por exemplo é comandado 

LPRINT "9" 

e a variável do sistema estiver selecionada para uma 
impressora MSX, são enviados os caracteres &H01 e 
&H<t1 . ou seja, o mesmo que comandar 

LPRINT CHRÍfi< i )"A" 

Nos MSX é "default” o valor zero para a vari- 
ável de sistema NTMSXP (&HF417), indicando que a im- 
pressora conectada é uma impressora MSX. 

No Expert versão 1.1 e no HOTBIT, devido aos 
filtros internos que foram adaptados ao sistema ope- 
racional para compatibilizá-los com os padrões ABNT e 
ABICOMP respectivamente, o funcionamento da NTMSXPé 
inverso. Quando a NTMSXP está em 0, os filtros estarão 
ativos, e se diferente de zero o sistema operacional 
"pensará" que a impressora conectada é MSX. 

Existe uma flag no programa chamada FL3S 
(FLag para caracteres menores que 32) que é ativada 
sempre que o caracter &H1 , que não possui função na 
MóNICA, é enviado. O caracter seguinte já terá o seu 
código correto, pois os caracteres menores que 32 fo- 
ram redefinidos a partir do &H42 (65 em decimal), bas- 
tando apenas verificar se a fonte está ativa ou não. 

Alguns comandos para a impressora, necessitam 
mais de um byte, e normalmente esses caracteres são 
precedidos pelo ESC (&H1B). Por isso teremos uma flag 
chamada FLESC (Flag de ESC) que será setada quando um 
ESC for enviado para impressora. Isso será feito para 
que os caracteres de controle, não sejam alterados pe- 
lo programa, pois eles não serão impressos, mas sim 
analisados pelo Sistema Operacional da impressora. 

Quando a FLESC está setada, é analisado se o 
carácter enviado seguidamente é um "G” ou um "H", para 
que 0 programa saiba se deve desligar ou não o modo de 
Qualidade Carta ao final da impressão de um bloco de 
caracteres gráficos. 

Para indicar se o modo de Qualidade Carta de- 
ve ficar permanentemente ativo, existe a flag FLQC 
(FLag de Qualidade Carta) que quando setada, Jmpede 
que esse modo seja desligado. Quando ESC e um "H" são 
enviados, a FLQC é resetada. 

Quando o carácter após o ESC não é um "G" ou 
um "H", eie é enviado sem nenhuma alteração, e a flag 
FLCOL (FLag do números de COLunas da impressora) é se- 
tada para que o próximo caracter também seja enviado 
para a impressora sem nenhuma alteração. Isso porque 
um grande número de comandos para a impressora utili- 
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zam três caracteres. Como. por exemplo, o comando para 
mudar o número de colunas da impressora. 

Existe também a flag FLFA (FLag de Fonte Al- 
ternativa). que será setada sempre antes de um bioco 
de caracteres gráficos ser enviado. Isso para evitar 
que os caracteres de controie para ativar a Qualidade 
Carta e a fonte de caracteres sejam enviados antes de 
cada caracter gráfico. Tal procedimento faria com que 
a MôNICA. após cada caractere, voltasse o carro de im- 
pressão para imprimir o resto do caractere, pois a im- 
pressão de um caracter em qualidade carta é feita com 
passagem do carro de impressão duas vezes pelo mesmo 
I ugar . 

Após compilar o programa, grave-o com o nome 
de IMPMSX.COM. pois assim o programa IMPMSX.BAS o car- 
regará automáticamente. 

CÓPIA GRAFICA NA IMPRESSORA 

Quem leu o "Aprofundando-se no MSX” desta 
mesma Editora, deve estar lembrado de que nele haviam 
programas (em BASIC) que tiravam cópias da tela grá- 
fica do computador na impressora. Aqueles que o testa- 
ram devem ter notado que ele era um pouco lento, devi- 
do ao enorme número de cálculos que realizava. 

Pela proposta daquele livro (dirigido a pro- 
gramadores BASIC) não havia razão para colocar um pro- 
grama em LM para obter o mesmo efeito. Agora, entre- 
tanto. vamos fazê-lo. apresentando-o em três versões 
sucessi vas. 

A primeira versão é meramente uma tradução do 
programa original, ou seja. o texto em BASIC foi tra- 
duzido para LM literalmente, linha por linha, é de fa- 
to a versão mais simples, e mesmo assim sua eficiência 
já é notável em relação ao programa em BASIC, graças à 
alta velocidade da LM. Experimente comparar a figura 
3.6 com a figura 3.7 . 

FIGURA 3.Ó - Prograia cópia gráfica ei BASIC 

50000 REM copy 

50010 DATA 3E,00,CD, A5,00,C9 

50012 FOR I 0 TO 5:READ A9):P0KE 51000 

' I , OAL ( "&l l"+A% ) : NEXT I : DEFÜSR 0“5 1 000 ! 

50020 LPRINT CHRT.<27) ;CHR%<65) ;CHR9,(B) 

50040 FOR C=0 TO 31 

50060 LPRINT CHR9)(27> ;CHR9)<75) ;(::HR9í( 192 
) ;CHR%(0) ; 

50080 FOR L=23 TO 0 8TEP -1 
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> 


50Í00 FOR X=7 TO 0 STEP -1 
S0Í20 U=0PEF:I<( (C»8+256*L)+X) 

!^i0i22 O-OPEEK ( ( CKa+25/>»L. ) X+8192 ) 

50125 ;i;F o MOD ia ”CT THEN U-255 
50180 POKE 51001!,U 
50140 Z=USR0<0) 

50160 NEXT X 
50180 NEXT L 
5 0 2 0 0 I... P R 1 N í I' H R ( 1 0 ) ; 

50220 NEXT C 

50240 LPRINT CHRS, ( 27 ) j CHRíb ( 65 ) ; CHRT, ( 1 3 ) 
50260 LPRINT CHR<6 ( 27 ) ; CHR íb ( 8 1 ) ? CHRíIi ( 3V ) 
50280 RETIJRN 


FIGURA 3.7 - Prograia cópia gráfica et LH 


9 COPIADOR DA SCREEN 2 OER . 1 

t 1986 HILTON HALDONADO JR . 


9 





ORG 

OCOOOH 

BOAS 


LPTOUTiEOU 

OASH 

BB4A 


RDORMs 

EOU 

04AH 

• BB4 


PAPEL s 

EOU 

4 

•BBF 


TINTAS 

EOU 

IS 

CBBB 


INICIOi 


ceoe 

BEBB 


LD 

c.o 

CBB2 


LOOPls 



CBB2 

C5 


PUSH 

BC 

CBB3 

CD64CB 


CALL 

SETGRA 

CBBÓ 

2E17 


LD 

Lr 23 

CBBB 


LOOP2S 



ceoB 

ES 


PUSH 

HL 

CBB9 

2607 


LD 

Hr7 

CBBB 


LOOP3I 



ceoB 

ES 


PUSH 

HL 

ceec 

SS 


LD 

DrL 

ceeo 

79 


LD 

ArC 

CBBE 

17 


RLA 


CBBF 

17 


RLA 


ceiB 

17 


RLA 


CBil 

SF 


LD 

ErA 

CB12 

7C 


LD 

ArH 

CB13 

6F 


LD 

Lr A 

CB14 

2600 


LD 

HrO 

CB16 

19 


ADD 

HLrDE 

CB17 

CD4AOO 


CALL 

RDORM 

CBIA 

32BFC0 


LD 

(BYTE) rA 

ceio 

110020 


LD 

DEr8192 

CB2B 

19 


ADD 

HLrDE 

CB21 

CD4AOO 


CALL 

RDORM 

CB24 

47 


LD 

BrA 

CB2S 

E60F 


AND 

15 

CB27 

FEOF 


CP 

TINTA 


fC-NC DA COLUNA. 

; 

9SALUA C. 

9 

IL-NC DA LINHA, 

r 

rSALUA L. 

IH-NQ DO BYTE 
fDO CARACTERE. 

I 

rSALUA H. 
pHULT. Lk2S6. 

9 

9 

9 

>HULT. Cx8. 

f 

I 

9 

9 

PBUSCA TABELA 
IDE PADRÕES 
ILE A ORAM 
lE SALOA OALOR. 


iLE TAB. CORES. 

ICOMP. COR DE 
I FUNDO DO PON- 
iTO COM A COR 
IDE FRENTE DA 
ITELA. 
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C029 

2005 

JR 

NZ, SALTAI 

C02B 

3EFF 

LD 

A,25S 

C02D 

328FC0 

LD 

<BYTE> ,A 

C030 

C030 

78 

SALTAI 1 

LD 

A,B 

C031 

IF 

RRA 


C032 

IF 

RRA 


C033 

IF 

RRA 


C034 

IF 

RRA 


C03S 

E60F 

AND 

15 

C037 

FE04 

CP 

PAPEL 


C039 

2004 

JR 

NZ,SALTA2 

C03B 

AF 

XOR 

A 

C03C 

328FC0 

LD 

<BYTE) ,A 

C03F 

C03F 

3A8FC0 

SALTA2I 

LO 

A, (BYTE) 

C0<42 

CDAS00 

CALL 

LPTOUT 

C045 

3830 

JR 

C,STTXT 

C047 

El 

POP 

HL 

C048 

3EFF 

LD 

A, 255 

C04A 

25 

DEC 

H 

C04B 

BC 

CP 

H 

C04C 

20BD 

JR 

NZ,LOOP3 

C04E 

El 

POP 

HL 

C04F 

2D 

DEC 

L 

C0S0 

BD 

CP 

L 

C0S1 

20B5 

JR 

NZ,LOOP2 

C0S3 

3E0A 

LO 

A, 10 

C055 

CDA500 

CALL 

LPTOUT 

C0S8 

381D 

JR 

C,STTXT 

C05A 

Cl 

POP 

BC 

C0SB 

0C 

INC 

C 

C05C 

3E20 

LO 

A, 32 

C05E 

B9 

CP 

C 

C0SF 

20A1 

JR 

NZ, LOOPl 

C061 

CD77C0 

CALL 

STTXT 

C0Ó4 

C064 

E5 

SETGRAs 

PUSH 

HL 

C0Ó5 

C5 

PUSH 

BC 

C066 

21B2C0 

LO 

HL,GRA 

C0Ó9 

0607 

LO 

B,7 

C0ÓB 

C06B 

7E 

STLOOPs 

LO 

A, <HL> 

C06C 

CDA500 

CALL 

LPTOUT 

C0ÓF 

380F 

JR 

C,FIM 

C071 

23 

INC 

HL 

C072 

10F7 

DJNZ 

STLOOP 

C074 

Cl 

POP 

BC 

C075 

El 

POP 

ML 

C07A 

C9 

RET 


C077 

C077 

E5 

STTXTs 

PUSH 

HL 

C078 

C5 

PUSH 

BC 

C079 

2189C0 

LO 

HL, TEXTO 

C07C 

0606 

LO 

B ,6 

C07E 

18EB 

JR 

STLOOP 

C080 

C080 

Cl 

FIM* 

POP 

BC 

C081 

C9 

RET 


C082 

C082 

1B41081B 

GRAi 

OEFB 

27,05,8,27,75, 

C08Ó 

C089 

C089 

4BC000 

1B410D1B 

TEXTO* 

DEFB 

27,65,13,27,81 

C08D 

C0BF 

C08F 

5127 

BYTE* 

DEFS 

1 


tSE igual, 

9 ACENDE TODOS 
9 OS PONTOS. 


9 COHP. COR DE 
9FRENTE DO PON- 
9 TO COM A COR 
9 DE FUNDO DA 
9 TELA. 

9 SE IGUAL, 

9 APAGA TODOS 
9 OS PONTOS. 


9 ENUIA BYTE. 

9 SE OCORRER 
9FALHA, ABORTA. 
9 RESTAURA H. 


9FECHA LOOP3. 
9RESTAURA L. 


9FECHA LOOP2. 

9 SALTA UMA 
9 LINHA. 

9 SE ocorrer 

9 FALHA, ABORTA* 
9RESTAURA C. 


9 FECHA LOOPl. 

9 ATIUA IMPRES- 
9 SOR A PARA MODO 
9 GRAFICO. 


fLOOP DE ENUIO 
9 DOS BYTES P/ 
9A IMPRESSORA. 


9 ATIUA IMPRES- 
9 SORA PARA MODO 
9 TEXTO - 


9 ENCERRA LOOPS. 
9 LIMPA PILHA. 
9 RETORNA. 

192,0 


,39 
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I nf e I j zmente os dois programas tem o incômodo 
de imprimir todas as figuras giradas de 90 graus. Isso 
ocorre porque no MSX os bytes que armazenam a tela in- 
dicam segmentos horizontais de imagem, e na impressora 
estes segmentos são impressos verticalmente. Na versão 
2Jfig 3.8) esse inconveniente é eliminado pela inver- 
são da ordem dos loops e por um algoritmo que cria uma 
matriz de 8 bytes girados de forma a compatibilizá-los 
com 0 padrão da impressora. 

FIGURA 3.8 - Prograea Cópia gráfica ei LH versio 2 


t COPIADOR OA SCREEN 2 VER. 2 
; 1986 HILTON HALDONADO JR . 


OOAS 

0059 

F3E9 

F3EA 

004A 

COOO 

AF 

ORG 

LPTOUTiEOU 
LOlRMOsEOU 
FORCLR SEQU 
BAKCLRtEQU 
RDORHi EQU 
XOR 

OCOOOH 

OA5H 

059H 

OF3E9H 

OF3EAH 

04AH 

A 


COOl 

3214C1 

LD 

ÍLOOPS) ,A 

1 CONTA TERÇOS 

C004 

C004 

AF 

TBLOOP 1 

XOR 

A 

|DA TELA- 

C005 

3213C1 

LO 

<LOOPL> , A 

fCONTA LINHAS. 

cooa 

C008 

AF 

EXLOOP 1 

XOR 

A 


C009 

3212CÍ 

LO 

<LOOPC) ,A 

1 CONTA COLUNAS 

cooc 

CDEiCO 

CALL 

8ETGRA 


COOF 

COOF 

210018 

INLOOPi 

LD 

HLr6144 

1 BUSCA ENDERE- 

C012 

3A12CÍ 

LD 

A, (LOOPO 

iCO DA TABELA 

COiS 

4F 

LD 

C,A 

9 DE NOMES (MA- 

COi6 

0600 

LO 

B ,0 

;PA DOS CARAC- 

C018 

09 

ADD 

HLrBC 

ITERES) . 

C019 

3A13C1 

LO 

A, CLOOPL) 


COiC 

87 

ADD 

A» A 


COID 

87 ' 

ADD 

A, A 


COIE 

87 

ADD 

A, A 


COIF 

87 

ADD 

A. A 


C020 

87 

ADD 

Ar A 


C021 

4F 

LD 

CrA 


C022 

09 

ADD 

HLrBC 


C023 

3A14C1 

LD 

Ar < LOOPS > 


C026 

84 

ADO 

ArH 


C027 

67 

LD 

Hr A 


C028 

CD4AOO 

CALL 

RDORM 

fLE CARACTERE. 

C02B 

6F 

LD 

LrA 

IBUSCA TABELA 

C02C 

2600 

LD 

HrO 

9DE formacao 

C02E 

29 

ADD 

HLrHL 

900 CARACTERE. 

C02F 

29 

ADD 

HLrHL 


C030 

29 

ADD 

HLrHL 


C031 

3A14C1 

LD 

Ar <LOOPS> 


C034 

87 

ADO 

Ar A 


C03S 

87 

ADO 

A r A 


C036 

87 

ADD 

Ar A 


C037 

84 

ADD 

ArH 


C038 

67 

LD 

Hr A 


C039 

2210C1 

LD 

<PTR > rHL 

9GUARDA POSZ- 

C03C 

1115C1 

LO 

DErBUFFER 

9CAO IS byte. 

C03F 

010800 

LD 

BCr8 


C042 

CDS900 

CALL 

LDIRHO 

9COPIA OS 8 

C04S 

C070C0 

CALL 

BITS8 

9BYTES DO CA- 
9RACTERE. 
9ROTACIONA A 


fMATRIZ. 


7A 



Ce48 

3AÍ2C1 


LD 

A, (LOOPO 


C04B 

3C 


INC 

A 


Ce4C 

3212C1 


LD 

<LOOPC> ,A 


C®4F 

FE20 


CP 

32 


cesi 

20BC 


JR 

NZ, INLOOP 

» FECHA LOOP COLUNAS. 

C0S3 

CD02C1 


CALL 

PR0O0A 


C056 

3A13C1 


LD 

Ar <LOOPL> 


C0S9 

3C 


INC 

A 


cesA 

32Í3C1 


LD 

(LOOPL> r A 


C0SD 

FE08 


CP 

8 


C05F 

20A7 


JR 

NZrEXLOOP 

tFECHA LOOP LINHAS. 

C061 

3A14CÍ 


LD 

Ar (LOOPS> 


C064 

3C 


INC 

A 


C06S 

32Í4C1 


LD 

(LOOPS) r A 


C068 

FE03 


CP 

3 


C0é»A 

2098 


JR 

NZr TBLOOP 

fFECHA LOOP TERÇOS. 

C0ÓC 

COEEC0 


CALL 

STTXT 


C0ÀF 

C070 

C9 

BITS8I 

RET 


VPROCEDIMENTOS 
?DE 1 CARACTERE. 

C070 

C072 

0608 

TL00P8 

LD 

BrB 

yENOIA os 8 
íBYTES DO CA- 
IRACTERE. 

C072 

C5 


PUSH 

BC 


C073 

CD80C0 


CALL 

BITS 


C076 

3A0CC1 


LD 

Ar (BYTE) 


C079 

CDA500 


CALL 

LPTOUT 


C07C 

Cl 


POP 

BC 


C07D 

10F3 


DJNZ 

TLOOP 


C07F 

C080 

C9 

BITS8 

RET 


8INICIA ROTACAO. 

C080 

AF 


XOR 

A 


C081 

C084 

320DC1 

XLOOP s 

LD 

(LOOPB ) r A 

; CONTA LINHAS/COLUNAS 

C084 

3A0CC1 


LD 

Ar (BYTE) 


C087 

CB27 


SLA 

A 


C089 

320CC1 


LD 

(BYTE) r A 


C08C 

3A0DC1 


LD 

Ar (LOOPB ) 


C08F 

21ÍSC1 


LD 

HLrBUFFER 


C092 

0600 


LD 

Br0 


C094 

4F 


LD 

CrA 


C095 

09 


ADD 

HLrBC 


C096 

220EC1 


LD 

(BPOS) rHL 

f APONTA BYTE QUE 
testa sendo PRO- 
yCESSAOO. 

C099 

2A10C1 


LD 

HLr (PTR ) 


C09C 

09 


ADO 

HLrBC 


C09D 

010020 


LD 

BCr8192 


C0A0 

09 


ADD 

HLrBC 


C0A1 

CD4A00 


CALL 

RDV7RM 

íLE TABELA DE CORES. 

C0A4 

E60F 


ANO 

15 


C0AÓ 

47 


LD 

BrA 


C0A7 

3AE9F3 


LD 

Ar (FORCLR ) 


C0AA 

B8 


CP 

B 

rCOHP. COR DE 
; FUNDO DO PONTO 
;COM A COR DE 
JFRENTE DA TELA. 

C0AB 

281A 


JR 

ZrSETB 

?SE IGUAL r ACENDE 

C0AD 

CO4A00 


CALL 

RDVRH 

jO BIT. 

C0B0 

CB3F 


SRL 

A 


C0B2 

CB3F 


SRL 

A 


C0B4 

CB3F 


SRL 

A 


C0B6 

CB3F 


SRL 

A 


C0B8 

47 


LO 

BrA 


C0B9 

3AEAF3 


LD 

Ar (BAKCLR ) 


C0BC 

B8 


CP 

B 

; COMPARA COR DE 

sfrente do ponto 

?COM A COR DE 
fFUNDO DA TELA. 

C0BO 

2810 


JR 

ZrPROX 

;SE IGUAL r APAGA 

C0BF 

2A0EC1 


LD 

HLr (BPOS) 

lO BIT. 

C0C2 

7E 


LD 

Ar (HL) 

C0C3 

E680 


AND 

128 


C0C5 

C0C7 

2808 

SETBs 

JR 

ZrPROX 

^ACENDE PONTO A 


75 



lIMPRiniR 


cec7 

3A0CC1 


LD 

Ar (BYTE) 


cecA 

CBC7 


SET 

0r A 


cecc 

320CC1 


LD 

(BYTE) r A 


C0CF 


PROXi 



1 ENCERRA LOOP 

C0CF 

2A0EC1 


LD 

HLr (BPOS) 

IDE ROTACAO. 

C0D2 

7E 


LD 

Ar (HL) 


C0D3 

17 


RLA 



C0D4 

77 


LD 

( HL ) r A 


C0DS 

3A0DC1 


LD 

Ar (LOOPB ) 


ceoa 

3C 


INC 

A 


C0D9 

320DC1 


LD 

(LOOPB ) r A 


C0DC 

FE08 


CP 

8 


C0OE 

20A4 


JR 

NZrXLOOP 


C0E0 

C9 


RET 



C«Ei 


SETGRAs 


lATIUA IMPRES- 

C0E1 

21F3C0 


LD 

HLr GR A 

iSORA P/ MODO 

C0E4 

0À07 


LD 

B r7 

IGRAFICO. 

C0E6 


STLOOPi 




C0EÁ 

7E 


LD 

Ar (HL) 


C0E7 

CDAS00 


CALL 

LPTOUT 


C0EA 

23 


INC 

HL 


C0EB 

10F9 


DJNZ 

STLOOP 


C0ED 

C9 


RET 



C0EE 


STTXT* 



lATIVA IMPRES- 

C0EE 

21FCC0 


LD 

HLr TEXTO 

iSORA P/ MODO 

ceFi 

0Ó0À 


LD 

B ró 

ITEXTO- 

ceF3 

IBFl 


JR 

STLOOP 


C0F5 


GRAi 




C0F5 

1B41001B 


DEFB 

27r A5r8r 27 r75r 

0r i 

C0F9 

4B0001 





C0FC 


TEXTO t 




C0FC 

ÍB4Í0O1B 


DEFB 

27r6Sr 13r27r81 

r39 

C100 

5127 





C102 


PR0O0AS 



lIMPRIME SALTO 

C102 

3E0D 


LD 

Ar 13 

lOE LINHA. 

C104 

COAS00 


CALL 

LPTOUT 


C107 

3E0A 


LD 

Ar 10 


C109 

C3A500 


JP 

LPTOUT 


C10C 


BYTES 

DEFS 

1 


C10O 


LOOPBs 

DEFS 

1 


C10E 


BPOSi 

DEFS 

2 


C110 


PTRf 

DEFS 

2 


C112 


LOOPCs 

DEFS 

1 


C113 


LOOPLs 

DEFS 

1 


C114 


LOOPSs 

DEFS 

1 



CliS BUFFERtDEFS 8 


Finalmente temos a versão 3 que, além "des- 
virar" a figura, imprime-a de uma forma ampliada na 
qual cada ponto da imagem tem seu tamanho dobrado. Uma 
curiosidade desta versão é o modo de se ampliar cada 
ponto da imagem. A ampliação horizontal é multo sim- 
ples, pois para isso basta imprimir duas vezes cada 
byte, saindo assim a largura dobrada. Para dobrar a 
altura é mais complicado: deve-se partir o byte em 

dois grupos de ^ bits (dois nibbles) e expandir cada 
grupo para o dobro do seu tamanho. 

Por exemplo, imagine que o byte a ser enviado 
para a impresora seja 

&B0i«>10í Í0 

Ao dividí-lo teremos dois nibbles que são 
expandidos para dois bytes como ilustra a figura 3.9. 
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FIGURA 3.9 - Nibbles expandidos 


NiBBLES e 1 e 1 


NIBBLES EXPANDIDOS 801100 


00111 


II 


é evidente que estes dois bytes não são envi- 
ados seguidamente para a impressora, bem como não são 
obtidos simultaneamente. Eles são processados em dois 
ciclos sucessivos que correspondem à metade superior e 
inferior de cada I i nha . 


FIGURA 3.10 - 

Cópia gráfica 

ee LH versão 3 


«0A5 

ees9 

F3E9 

F3EA 

ee4A 

coee 

ceeo 

AF 

? COPIADOR DA SCREEN 2 VER. 3 
? 1986 MILTON MALOONADO JR . 

ORG 0C000H 
LPTOUTtEQU 0A5H 
LDIRHVxEQU 0S9H 
FORCLRsEQU 0F3E9H 
BAKCLRtEQU 0F3EAH 
RDVRMS EQU 04AH 
inícios 

XOR A 

C001 

32<&3C1 

LD 

(TOGGLEl .A 

S CONTA MEIAS 

C004 

AF 

XOR 

A 

sLINHAS. 

C005 

326BC1 

LD 

(LOOPS> .A 

F CONTA TERÇOS 

C008 

C008 

AF 

TBLOOP s 

XOR 

A 

fDA TELA. 

C009 

326AC1 

LD 

<LOOPL> r A 

1 CONTA LINHAS. 

C00C 

C00C 

AF 

EXLOOP s 

XOR 

A 

C00D 

3269C1 

LD 

<LOOPC) .A 

f CONTA COLUNAS 

C010 

CD35C1 

CALL 

SETGRA 

C013 

C013 

210018 

INLOOPt 

LD 

HLr6144 

fbusca ENDERE- 
?CO DA TABELA 

C016 

3AÓ9C1 

LD 

A. (LOOPO 

SDE NOMES <MA- 

C019 

4F 

LD 

C.A 

fpa dos CARAC- 

C01A 

0600 

LD 

B .0 

STERES) . 

C0iC 

09 

ADD 

HL. BC 


C01D 

3AÓAC1 

LD 

A. (LOOPL) 


C020 

87 

ADD 

A. A 


C021 

87 

ADD 

A. A 


C022 

87 

ADD 

A. A 


C023 

87 

ADD 

A. A 


C024 

87 

ADD 

A. A 


C02S 

4F 

LD 

C.A 


C02Ó 

09 

ADD 

HL. BC 


C027 

3A6BC1 

LD 

A. (LOOPS) 


C02A 

84 

ADD 

A.H 


C02B 

A7 

LD 

H. A 


C02C 

CD4A00 

CALL 

RDVRM 

fLE CARACTERE. 

C02F 

6F 

LD 

L.A 

SBUSCA TABELA 

C030 

2600 

LD 

H.0 

»DE FORMACAO 

C032 

29 

ADD 

HL. HL 

fDo caractere. 

C033 

29 

ADD 

HL. HL 

C034 

29 

ADD 

HL. HL 


C03S 

3A6BC1 

LD 

A. (LOOPS> 


C038 

87 

ADD 

A. A 


C039 

87 

ADD 

A. A 


C03A 

87 

ADD 

A . A 
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CeC8 «9 
CeC9 2265C1 

C®CC 2A67C1 
C«CF 09 

cooe 010020 

C003 09 
C004 C04A00 
COD7 E60F 
COD9 47 
CODA 3AE9F3 
CODD BB 


CODE 2B1A 
COEO CD4AOO 
COE3 CB3F 
C0E5 CB3F 
COE7 CB3F 
COE9 CB3F 
COEB 47 
COEC 3AEAF3 
COEF B8 


COFO 2810 
COF2 2A6SC1 
COF5 7E 
COFó E680 
COF8 2808 
COFA 

COFA 3A60C1 
COFO CBC7 
COFF 3260C1 
C102 

C102 2AÓSC1 
C105 7E 
C106 17 
C107 77 
CiOB 3AÓ4C1 
CIOB 3C 
CIOC 3264C1 
CIOF FE08 
Cl 11 20A4 
C113 C9 
C114 

C114 3262C1 
C117 AF 
C118 32Ó1C1 
CllB 0604 
CllD 

Cl 10 3A^»2C1 
C120 17 
C121 32Á2C1 
C124 3A61C1 
C127 17 
C128 17 
C129 CB4F 
C12B 2802 
C120 CBC7 
C12F 

C12F 3261C1 
C132 10E9 
C134 C9 
C135 

C135 2149C1 
C138 0607 
C13A 
C13A 7E 
C13B COASOO 
C13E 23 
C13F 10F9 
C141 C9 


ADO HI_,BC 
LO (BPOS>,HL 


LD 

HL, <PTR > 

ADD 

HL, BC 

LD 

BC, 8192 

ADD 

HL, BC 

CALL 

ROVRM 

AND 

13 

LD 

B . A 

LD 

A, <FORCLR 

CP 

B 


JR 

Z,SETB 

CALL 

RDVRM 

SRL 

A 

SRL 

A 

SRL 

A 

SRL 

A 

LD 

B,A 

LD 

A, CBAKCLR 

CP 

B 



JR 

Z,PROX 


LD 

HL, (BPOS> 


LD 

A , < HL > 


AND 

128 


JR 

Z,PROX 

SETBs 


LD 

A, (BYTE) 


SET 

0,A 


LO 

(BYTE) , A 

PROXs 


LD 

HL, (BROS) 


LD 

RLA 

A , ( HL > 


LO 

(HL) ,A 


LO 

A, (LOOPB ) 


INC 

A 


LO 

(LOOPB) ,A 


CP 

8 


JR 

RET 

NZ,XLOOP 

AMP 1 


LO 

(BYTE2) ,A 


XOR 

A 


LD 

(ABYTE) , A 


LD 

B ,4 

LOOPAs 


LD 

RLA 

A, (BYTE2) 


LD 

(BYTE2) ,A 


LD 

RLA 

RLA 

A, (ABYTE) 


BIT 

1,A 


JR 

Z,BITO 


SET 

0,A 

BITOs 


LD 

(ABYTE) , A 


DJNZ 

RET 

LOOPA 

SETGRA: 


LD 

HL, GR A 


LD 

B,7 

STLOOP * 


LD 

A, (HL) 


CALL 

LPTOUT 


INC 

HL 


DJNZ 

RET 

STLOOP 


JAPONTA BYTE QUE 
SESTA SENDO RODADO. 


ILE TAB- CORES. 


rCOHP. COR DE 
I FUNDO DO BYTE 
fCOM A COR DE 
IFRENTE DA TELA. 
;SE IGUAL, ACENDE 
90 BIT. 


ICOMP. COR DE 
? FUNDO DO BYTE 
?COM A COR DE 
fFRENTE DA TELA. 
?SE IGUAL, APAGA 
fO BIT- 


I ACENDE PONTO 
?A IMPRIMIR. 


;COLETA PROXIMO 
IBIT. 


lENCERRA LOOP. 

rRETORNA. 

»AMPLIA UM BYTE. 


9AUANCA UM BIT 
íEM BYTE2. 

fCOLOCA O BIT 

pEM abyte, duas 

9 VEZES. 


9PASSA IMPRES- 
9 SORA P/ MODO 
9 GRAFICO. 
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Ci42 


STTXTi 

fPASSA IMPRES 

C142 

2iseci 

LD 

HL, TEXTO pSORA P/ MODO 

C145 

e^eó 

LD 

B,Á *TEXTO. 

C147 

i8Fi 

JR 

STLOOP 

C149 


GRAS 


C14V 

lB4ie81B 

DEFB 

27,65,8,27,75,0,2 

C14D 

4Beee2 



Cise 


TEXTO* 


Cise 

iB4ieDlB 

DEFB 

27,65,13,27,81 ,39 

C154 

5127 



C1S6 


PReoeAs 

fSALTA LINHA. 

C156 

3E0D 

LD 

A, 13 

C1S8 

CDAsee 

CALL 

LPTOUT 

CiSB 

3EeA 

LD 

A, le 

CiSD 

C3Asee 

JP 

LPTOUT 

Ci6e 


BYTE* DEFS 

1 

C16i 


ABYTE* DEFS 

1 

C162 


BYTE2* DEFS 

1 

C163 


TOGGLEiDEFS 

1 

C164 


LOOPB* DEFS 

1 

C16S 


BPOS* DEFS 

2 

C167 


PTR* DEFS 

2 

C1A9 


LOOPC* DEFS 

1 

CIÀA 


LOOPL* DEFS 

1 

CIAB 


LOOPSs DEFS 

1 

ClóC 


BUFFERiDEFS 

8 
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OPERANDO O 
CASSETE EM 
ASSEMBLY 


Neste capítulo discutiremos como o computador 
processa o armazenamento e a recuperação de dados da 
fita cassete, e veremos como utilizar as rotinas da 
ROM para efetuar leituras e gravações em linguagem de 
máquina. 


Todas as operações do cassete efetuadas pelo 
MSX, utilizam as sub~rotinas do BIOS iniciadas entre 
as posições &He0E1 e &H0eF5 da ROM. De fato, se anali- 
sarmos os comandos BLOAO, CLOAO, LOAO e INPUT *, vere- 
mos que todos eles utilizam as mesmas sub-rotinas, o 
mesmo ocorrendo com o BSAVE, CSAVE, SAVE e PRINT #. 


CABEÇALHOS DE GRAOACSO 

Todas as gravações feitas pelo MSX são pre- 
cedidas de um cabeçalho que identifica o tipo de in- 
formação enviada ao gravador e o nome especificado 
pelo usuário. Assim, quando o computador for ler nova- 
mente essas informações, ele saberá identificar o tipo 
dos dados e não haverá o perigo de carregar um bloco 
inválido (por exemplo, um programa em LM na área do 
BAS I C ) . 

0 formato do cabeçalho é o mesmo para todos 
os tipos de dados e é exemplificado na figura 4.1 . 
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FIGURA A.l - Foriato do cabeçalho usado pelo HSX 

XX XX XX XX XX XX XX XX XX XX B« BI BE B3 B4 B5 

Onde i 

XX é 0 identificador do tipo de gravação» 


ESAVE XX=&H0e 

CSAVE XXÍ&HD3 

SAVE XX=&HEA 

ARQUIVO XX=&HEA 

B0 a B5 guardam os caracteres do nome dado 
pelo usuário. Se o nome for mais curto, os bytes exce- 
d6nt6S são ppBenchidos coni espaços (&Hc0). 

Por exemplo, quando digitamos 

BSAVE "CAS : ROTINA" , &H8000 , «HC047 , &HC0O0 

0 cabeçalho enviado à fita será como na figura 2. 


FIGURA 4.2 - Cabeçalho usado pelo BSAVE. 

00 00 00 00 00 00 00 00 00 00 52 4F 54 49 4E 41 

! í ! I I • 

tipo de gravação ROTINA 


Como se vê, os três parâmetros habitualmente 
dados no comando BSAVE não ficam no cabeçalho, como 
se poderia imaginar. Após o cabeçalho, então, 
bloco de dados propriamente dito cujo 
do tipo da gravação» 


formato 


vem 0 
depende 


BSAVE» os seis primeiros bytes do bloco de dados re- 
presentam os três endereços que você digita após o no- 
me. Do sétimo byte até o último, então, fica o progra- 
ma (ou dados) em si, tal como se situa 
0 comando dado acima deve originar um 
como exemplificado pela figura 4.3 . 


na RAM. 
bloco de 


Assim, 

dados 


FIGURA 4.3 - Início do bloco dc dados do BSAVE. 

00 80 47 C0 00 C0 41 42 10 40 1 

I j ; 

end! end. end. programa ou dados 

inic. final exec. (cópia da RAM) 

CSAVE» todo 0 bloco do dados é uma cópia fiel da RAM 
(como no BSAVE). evidentemente sem os seis bytes de 
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endereços. A cópia normalmente se Inicia no endereço 
32769 (&H8001) e termina na primeira sequência de três 
zeros consecutivos (fim do programa). 

Tomemos como exemplo o programa da figura 

FIGURA 4.4 - Exeeplo dc prograaa gravado pelo CSAVE 

MEMÓRIA 

i0 PRINT 
20 RUN 
30 END 

BYTES GRAVADOS 

07 -1 epl 

80 J 

0A 1 n 1 
00 -> 

9i toker» do PRINT 
00 fl 
0C T epl 

80 J 

Í4 1 r»l 

00 -I 

E)A tokcn do RUN 
00 fl 
Í3 T epl 

80 J 

lE T nl 

00 J 

£)i token do END 
00 f 1 

00-1 fim de programei 

00 -I 


Quando se carrega um programa em BASIC pelo 
comando CLOAO. os dados da fita são colocados a partir 
dos bytes apontados pela variável de sistema TXTTAB 
(&HF676) até que se encontrem três bytes nulos, quando 
a leitura é encerrada. Antes de devolver o controle ao 
operador, entretanto, a sub-rotina CLOAO deve Informar 
ao Interpretador o endereço do último byte lido para 
que este possa definir a área das variáveis. Se Isso 
não fosse feito, haveria o perigo do computador defi- 
nir as variáveis sobre o programa em BASIC, o que cer- 
tamente seria desastroso. 

Existem três variáveis do sistema que contro- 
lam as variáveis do BASICt 
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VARTAB (&HF6C2) 

ARYTAB (&HFÓC4) 

STREND <&HF6C6> 

é nelas que o comando CLOAD escreve o último 
endereço lido. Com exceção da VARTAB. as demais 
(ARYTAB e STREND) tãm seu valor mudado quando se cria 
uma nova variável. A VARTAB s6 muda quando se altera o 
tamanho do programa BASIC que está na memória. 

SAVE e PRINT •: como os dois comandos funcionam da 
mesma maneira, eles são explicados juntamente nesta 
parte. Após o cabeçalho Inicial, blocos de 256 bytes 
são enviados para a fita até todo o arquivo ter sido 
gravado. Evidentemente, é pouco provável que o último 
bloco contenha exatamente 256 bytes; o normal é que 
ele seja menor. Desse modo. os bytes que "sobraram** 
são preenchidos com o valor &H1A. 

Antes de um bloco de dados ser enviado, é ne- 
cessária a certeza de termos 256 bytes a salvar (ou 
que os bytes restantes sejam os últimos do programa ou 
arquivo). 

Para isso. o computador monta um "buffor" de 
256 bytes, que só é enviado à fita quando este está 
preenchido, ou quando se dá um comando CLOSE. 

A diferença básica entre o SAVE "CAS:** e o 
CSAVE "nome" está na forma de envio dos dados. No 
CSAVE. os dados são codificados numa forma chamada 
"binário compactado", que na verdade é uma cópia da 
RAM. No SAVE "CAS:" as linhas de programa são enviadas 
ao cassete na forma ASCII, ou seja. letra por letra. 
Logicamente esse sistema é bem menos eficiente, pois 
salva um número muito maior de bytes para representar 
a mesma informação. 

Um aspecto interessante é que se houver erro 
durante uma leitura, será mais fácil para o usuário 
"editar" uma linha que entrou defeituosa pelo LOAO do 
que pelo CLOAD. devido à redundância de informações 
inerente ao SAVE e LOAD. Por outro lado. o CSAVE uti- 
liza um comprimento bem menor da fita. sendo então me- 
nos provável que um defeito físico da fita venha a in- 
terferir na leitura pelo CLOAD. 


AS SUB-ROTINAS DO BIOS 

Podemos agora falar das sub-rotinas do BIOS 
de tratamento do cassete. Elas ficam situadas na pági- 
na 9 da ROM e estão indicadas a seguir pelo endereço 
da chamada (em Hexadecimal), nome e função. 


84 


&H90E1 TAPION: Aciona o motor do gravador, 
desativa a interrupção e aguarda o sinal de sincronis- 
mo {"header") da fita. 

&H09E^ TAPINi Li um byte da fita e devolve 
seu valor no registro A (acumulador do Z80). 

&H00E7 TAPIOFj Desliga o motor do gravador, 
reativa a interrupção e retorna. 

&K00EA TAPOONi Aciona o motor do gravador, 
desativa a interrupção e envia o sinal de sincronismo 
("header") para a fita. O valor do registro A determi- 
na a duração do sinal: se A valer 9, o sinal será cur- 
to; caso contrário, o sinal será longo. 

&H99ED TAPOUT: Envia o byte contido no regis- 
tro A do Z89 para o gravador cassete. 

&H99F8 TAPOOFi Como no TAPIOF, desliga o mo- 
tor, devolve a interrupção e retorna. 

&H99F3 STMOTRi Controla o motor do gravador 
da seguinte maneira: 

A=9 : des I i ga 

A=1 : liga 

A=255: inverte ( I i ga-des I i ga. 

desi iga-l iga ) 

Note como existe uma simetria perfeita entre 
as sub-rotinas de escrita e leitura. Veremos agora co- 
mo se utilizam essas rotinas. 

GRA^^ANDO UM BLOCO DE DADOS 

Imagine que temos a mensagem "OS CYLONIOS 
INVAOIRAO A TERRAI" e queremos enviá-la para a fita. 

Inicialmente, devemos acionar o gravador e enviar para 
a fita 0 sinal de sincronismo, que é essencial para a 
hora da leitura. Em seguida enviamos os dados propria- 
mente ditos e finalmente encerramos a gravação. O pro- 
grama a seguir faz exatamente isso. 

Figura 4.5 - Gravação de uea eensagee ea Asseably. 

ORO oceoeH 

•OEA TAPOONIEOU 0EAH 

••EO TAPOUT sEQU OEDM 

••FO TAPOOFSEOU «FOH 

ceoe CDEAOO CALL TAPOON 

ceo3 2iiAce LO hl r texto 


9 AC TONA o GRAUAOOR 
lE ENUIA O SINCRONISMO. 
3 CARREGA HL COM 
30 ENDEREÇO DA 
3MENSAGEM. 
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ce»6 

7E 

LOOP s 

LD 

A , í HL ) 

t CARREGA A COH UM 
«CARACTERE DA 
«MENSAGEM. 

C»07 

A7 


AND 

A 

«TESTA FIM DA 
«mensagem. 

ceee 

28 ea 


JR 

Z.FIH 

«SE FIM. SALTA. 

ceeA 

E5 


PUSM 

HL 

«salva hl. 

ce«B 

CDEoee 


CALL 

TAPOUT 

«ENVIA O BYTE. 

ce^c 

Ei 


POP 

HL 

«RESTAURA HL. 

ce«F 

23 


INC 

HL 

«PRÓXIMA LETRA. 

ceie 

cei 2 

1BF4 

FIM* 

JR 

LOOP 

«REINICIA LOOP. 

cei 2 

CDFeee 


CALL 

TAPOOF 

«ENCERRA A GRAVACAO 
«E DESLIGA MOTOR. 

ceis 

ceió 

C9 

TEXTO* 

RET 


«RETORNA 

cei6 

4F532e43 


DB 

'OS CYLONIOB 

INVADIRAO ' 

ceiA 

394C4F4E 





ceiE 

494FS32e 





ce 22 

494ESÁ41 





ce26 

44495241 





ce2A 

4F2e 





ce2C 

412eS44S 


DB 

'A TERRA f ' 


ce30 

S2S2412e 





ce34 

21 





ce3s 

ee 


DB 

e 



Digite 

0 programa da 

figura ^.5. prepare 


gravador para gravar e execute-o. O computador enviará 
um sinal curto para o gravador, tal qual um programa 


bem pequeno. 

Agora que você tem a mensagem gravada na fi- 
ta. deve estar pensando que existe um outro programa 
capaz de lê-la. E, de fato, existe mesmo, como é mos- 
trado na figura <1.6 . 


FIGURA 4.6 - Leitor de nensagens ee Asseeblg 





ORO 

ecieoH 


eeEi 


TAPIONtEOU 

OEIH 


eeE4 


TAPIN* 

EQU 

OE4H 


eeE7 


TAPIOFSEOU 

OE7H 


ciee 

CDEiee 


CALL 

TAPION 

«LIGA MOTOR E 
«AGUARDA SINCRO- 
«NISMO. 

cie3 

cie3 

CDE4ee 

LOOP* 

CALL 

TAPIN 

»LE UM BYTE DA FITA. 

cie6 

A7 


ANO 

A 

«TESTA SE A-e. 

cie7 

2804 


JR 

Z.FIM 

«SE FIM. SALTA. 

cie9 

0390 


OUT 

( 152> .A 

«IMPRIME O CARACTERE. 

cieB 

cieo 

1BF6 

FIM* 

JR 

LOOP 

«PROXIMO CARACTERE. 

cieD 

CDE70e 


CALL 

TAPIOF 

«ENCERRA A LEI- 
«TURA E DESLIGA 
«O MOTOR. 

ciie 

C9 


RET 


«RETORNA. 


Uma curiosidade deste programa i o uso do co- 
mando OUT. Isso decorre do próprio hardware dos MSX, 
pelo qual o controle da VRAM é feito pelas portas 152 
(&H98) e 153 (&H9g). Você verá que um "OUT (152). A" e- 
quivale à chamada do comando ()HPUT (&HA2), sõ que é 
muito mais veloz. Se você tentar trocar o OUT pela 
chamada do CHPUT, perceberá que o programa não funcio- 
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nará pois o CHPUT é lento demais e tirará o micro do 
sincronismo com a fita. 

Digite 0 programa da figura ^.6, volte a fi- 
ta. coloque 0 * gravador para ler a mensagem gerada pe- 
lo Leitor e aguarde alguns segundos, quando então de- 
verá aparecer a mensagem na tela. 

Os programas Enviador e Leitor são um exemplo 
didático de como usar as rotinas do BIOS para cassete. 
Veremos agora como usar o BIOS para coisas mais úteis. 

OUTRAS APLICAÇoES 

Baseados no raciocínio dos programas acima, 
podemos, em princípio, ler e gravar o que bem enten- 
dermos na fita cassete. Uma aplicação interessante é a 
duplicação de programas gravados pelo comando BSAVE. 
que já foi explorada no livro "Aprof undando-se no 
MSX". mas não explicada em detalhes naquela publica- 
ção. Oe fato. 0 programa "Header” (capítulo 6) lá pu- 
blicado é muito semelhante ao Leitor, com duas dife- 
renças básicas: a primeira, é que o programa "Header” 
escreve o dado lido da fita numa área da RAM (e não na 
tela) e a segunda i que ele não espera um byte 9 para 
retornar (em vez disto, carrega 16 bytes quaisquer, 
que no caso compõem um cabeçalho), e depois mais seis 
bytes que contêm os endereços do BSAVE. 

A parte em Assembly do programa Header está 
listado na figura 4.7 de uma forma mais clara do que 
a usada no "Aprof undando-se no MSX”. 

FIGURA 4.7 - Prograea Header 





ORG 

ÁOOOe 


eeEi 


TAPION 

■ EOU 

OEIH 


eeE4 


TAPINS 

EQU 

0E4H 


EAòe 

CDEieB 


CALL 

TAPION 

fAGUARDA PRI~ 
fHEIRA PARTE- 

EA63 

oe 


RET 

C 

?RETORNA SE 
rHOUVE ERRO. 

EA64 

2ieece 


LD 

HL.0C000H 

jlQ ENDEREÇO. 

EAÓ7 

EA69 

•óie 

LOOP8: 

LD 

B , Í0H 

9N-16 BYTES. 

EAÓ9 

ES 


PUSH 

HL 

fSALV7d$ HL E BC 

EA6A 

cs 


PUSH 

BC 


EA6B 

CDE40» 


CALL 

TAPIN 

jLE 1 BYTE. 

EA6E 

Cl 


POP 

BC 

»VOLTA HL E BC 

EA6F 

Ei 


POP 

HL 


EA7e 

D8 


RET 

C 

1 RETORNA SE 
pHOUV/E ERRO. 

EA71 

77 


LD 

(HL> . A 

9 COLOCA NA 
fMEHORIA. 

EA72 

23 


INC 

HL 

9 INC. ENDEREÇO 

EA73 

ieF4 


DJNZ 

LOOPe 

9PROX. BYTE. 

EA75 

CDCie» 


CALL 

TAPION 

9 AGUARDA SE- 
9GUNDA PARTE. 

EA78 

08 


RET 

C 

9RETORNA SE 
9HOUUE ERRO. 

EA79 

2 iiece 


LD 

HLr ecoieH 

9lC ENDEREÇO. 

EA7C 



LD 

B ,06H 



07 



LOOPl I 


EA7E 


EA7E 

E5 

PU3H 

HL 

;SALOA HL E BC. 

EA7F 

C5 

PUSH 

BC 


EA8« 

CDE480 

CALL 

TAPIN 

?LE 1 BYTE- 

EA83 

Cl 

POP 

BC 

yVOLTA HL E BC- 

EA84 

Ei 

POP 

HL 


EA8S 

D8 

RET 

C 

fRETORNA SE 
SHOUVE ERRO. 

EA86 

77 

LO 

< HL > , A 


EA87 

23 

INC 

HL 

0lNC. ENDEREÇO. 

EAB8 

10F4 

DJNZ 

LOOPl 

3PROX. BYTE. 

EA8A 

C9 

RET 


0RETORNA. 



Bas 1 camente 

0 programa 

lê dois blocos 


sete> um de 16 bytes, que é escrito a partir do ende- 
reço &HC900. Esse bloco é o cabeçalho propriamente di- 
to, lido para que se obtenha o nome do programa. Do 
segundo bloco são os seis bytes de endereçamento do 
BSAVE e eles são armazenados nas posições seguintes. 

Existe também um pequeno trecho em Basic que 
lê na memória esses bytes (função PEEK ) e imprime na 
tela os valores convenientes (nome, tipo de arquivo e 
endereços, se existirem). Você seria capaz de escrever 
este trecho ? 

Tecnicamente, entretanto, há um problema com 
esse trecho em Assembly: ele não desliga o gravador no 
fim da leitura (ou se houver uma parada). Assim, para 
corrigir isso, o trecho em Basic que segue a sua cha- 
mada desliga o motor com o comando MOTOR OFF, o que 
nada altera. Observe que os comentários foram omitidos 
na parte final da listagem anterior pois seriam uma 
repetição sumária dos comentários anteriores. 


VERIFICA(;:SO DO BSAOE 

Você iá deve ter se lamentado por perder um 
programa gravado pelo BSAVE, simplesmente porque não 
tinha como verificar se ele estava bem gravado. Se o 
programa era de sua autoria, então, o seu gravador de- 
ve ter levado muitas pancadas nessas ocasiões. 

Para evitar que você destrua seu gravador e 
consiga sempre ler seus programas gravados em BSAVE, 
apresentamos agora uma rotina que lê o programa da fi- 
ta e o compara byte a byte com o que está na memória, 
indicando se há um erro ou não. 

A princípio, a rotina procura os dez bytes 
que indicam o tipo do programa que está na fita. Ao 
encontrar o código do BSAVE (&HD0), o nome é lido e 
impresso na tela, e então termina o primeiro bloco. O 
segundo bloco comeca a ser lido. iniciando pelos seis 
bytes de endereços. 

Os quatro primeiros bytes marcam o início e o 
fim da verificação e os dois restantes são despreza- 
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dos. Em seguida, começa o confronto byte a byte. 

A verificação prossegue até o último byte e 
se houver alguma divergência, o endereço corresponden 
te é impresso na tela. Em qualquer instante a verifi 
caçao pode ser interrompida com o press i onamento das 
teclas CTRL+STOP. 

FIGURA 4.10 - Verificador do BSAVE 


e«98 

• •99 
••6C 
••A2 

• •C6 
••El 
••E4 
••E7 
F857 
F85D 

□••e CD6C8^ 
□••3 AF 
□••4 D399 
0399 

D998 

□••8 CDEie9 

□••B 3876 

□••D •^•A 
□••F 
D89F CS 
081 • CDE498 
0913 Ci 
0814 10F9 
0016 FEOe 
081 8 20EE 

D81A 8686 
D81C 
081C CS 
0010 CDE400 
0020 3861 
0022 0398 
0024 Cl 
D02S 10FS 
0027 3E3E 

0029 0398 
D02B 0398 
0020 COE 100 

0030 21S7F8 
0033 0606 
O03S 

0035 ES 

0036 CS 

0037 COE400 
O03A Cl 
O03B Ei 
O03C 77 

0030 23 
O03E 10FS 
0040 3E2C 
0042 2AS7F8 
0045 CDA9O0 
0048 0398 
O04A 2AS9F8 
0040 COA9D0 


ORO 

OOPOATiEOU 
OOPAOOSE0U 
1NITXTSE0U 
CHPUTz E0U 
POSITs EQU 
TAP1ONIE0U 
TAPINc EOU 

tapxofxeou 

BUFs EOU 
FLE s EOU 

VERIFY* 

CALL 

XOR 

OUT 

OUT 

INICIOI 

CALL 


0O000H 

•98H 

•99H 

•6CH 

• A2H 

0C6H 

•EIH 

•E4H 

•E7H 

•F0S7H 

•FBSOH 

INITXT 

A 

(UOPADO) ,A 
CUOPAOO) rA 

TAPION 


JR CrFIMl 
LO 8,10 

LOOPH8 

PUSH BC 
CALL TAPIN 
POP BC 
DJNZ LOOPH 
CP 0O0H 
JR NZ, INICIO 

LD B,6 

LOOPNi 

PUSH BC 
CALL TAPIN 
JR C,FIH1 
OUT (UOPDAT>,A 
POP BC 
DJNZ LOOPN 
LD Ar '> ' 

OUT (UDPOAT)rA 
OUT (UDPDAT>rA 
CALL TAPION 

LD HLrBUF 
LD Br 6 

LOOP0I 

PUSH HL 
PUSH BC 
CALL TAPIN 
POP BC 
POP HL 
LD (HL>rA 

INC HL 
DJNZ LOOP0 
LD Ar 'r ' 

LD HLrCBUF) 
CALL IMPHL 
OUT (UDPDAT)rA 
LD HLr<BUF<i>2> 
CALL IHPHL 


pATIVA SCREEN 0. 
PAJUSTA PRIHEI- 
pRA POSICAO OA 
pTELA. 

pAGUAROA SIN- 
pCRONISHO. 
pSE ha ERROr 
P SALTA. 

pLE OS 10 BYTES 
pDE TIPO DE AR> 
pOUIUO. 


pSE TIPO DIFE- 
f RENTE r TENTA 
pOE NOUO. 
pLE E IMPRIME 
pO NOME DO 
pAROUIUO. 


pIMPRIME 


pAGUAROA SIN- 
pCRONISMO. 

PLE OS 6 BYTES 
pCOM 03 ENDE- 
pRECOS DO BSAVE. 


p COLOCA NA ME- 
p MOR IA. 
pPROX. BYTE. 

pIMPRIME OS 
p ENDEREÇOS LI- 
pDOS DA FITA. 
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D9S0 

0398 


OUT 

<UDPDAT> ,A 


D0S2 

2A5BF6 


ED 

HL, (BUF-i-4) 


0035 

COA9O0 


CALL 

IMPHL 


D058 

3E20 


LO 

A, 32 

f IMPRIME E8PA- 

O0SA 

D05C 

0612 

LOOPSs 

LO 

B r 18 

pCOS. 

O05C 

0398 


OUT 

(UDPDAT> ,A 


D0SE 

10FC 


DJNZ 

LOOP8 


0060 

2A57F8 


LO 

HL, CBUF) 

1 INICIA COMPA- 

0063 

EOSB39F8 


LO 

DE, CBUF-«'2> 

pRACAO. 

0067 

13 


INC 

DE 


0068 

AF 


XOR 

A 


0069 

O06C 

3250FB 

LOOPi 

LO 

<FLE> ,A 

pLOOP DE COMPA- 
pRACAO. 

O06C 

E5 


PUSH 

HL 


0060 

05 


PUSH 

DE 


O06E 

COE400 


CALL 

TAPIN 

pLE UM BYTE. 

0071 

Dl 


POP 

DE 


0072 

El 


POP 

HL 


0073 

380E 


JR 

C,FIH1 


0073 

BE 


CP 

<HL> 

pCOMPARA COM A 
pHEMORIA. 

0076 

C4A2D0 


CALL 

NZ,IHPDAT 

pSE HA ERRO, 
p IMPRIME EN- 
pOERECO E O 
pDADO. 

0079 

23 


INC 

HL 

pPROXIMO BYTE. 

O07A 

A7 


AND 

A 


O07B 

E5 


PUSH 

HL 


O07C 

EDS2 


SBC 

HL, DE 

pTESTA SE TER- 

D07E 

El 


POP 

HL 

pMINOU. 

O07F 

20EB 


JR 

NZ , LOOP 


0081 

1805 


JR 

FIM 

pFIM OA COMPA- 
pRACAO. 

0083 

0083 

3E01 

FIMlt 

LO 

A,1 

p ACENDE FLAO 

0085 

323DF8 


LO 

<FLE> ,A 

pDE ERROS. 

0088 

0088 

211000 

FIHi 

LO 

HL, 16 

pPOSICIONA CUR- 

O08B 

COC600 


CALL 

POSIT 

pSOR. 

008 E 

COE700 


CALL 

TAPIOF 

p ENCERRA LEITU- 
PRA OA FITA. 

0091 

3A3DF8 


LO 

A , C FLE > 

p TESTA FLAO DE 

0094 

A7 


AND 

A 

pERRO. 

0095 

C0 


RET 

NZ 


0096 

21FCO0 


LO 

HL,MENS 

pSE NAO HA ERRO, 

0099 


LOOPHi 



p IMPRIME MENSA- 

0099 

7E 


LO 

A, <HL> 

pGEM. 

O09A 

A7 


AND 

A 


O09B 

C8 


RET 

Z 


O09C 

23 


INC 

HL 


0090 

CDA200 


CALL 

CHPUT 


O0A0 

18F7 


JR 

LOOPM 


O0A2 


IMPDATi 


pROTINA DE IM- 

O0A2 

CDA9D0 


CALL 

IMPHL 

p PRESSÃO DO 

O0A5 

CDB 400 


CALL 

IMPO 

pBYTE DIVERGENTE 

O0A8 

O0A9 

C9 

IMPHLi 

RET 


p IMPRIME O ENOE- 

O0A9 

F3 


PUSH 

AF 

pRECO < VALOR HL > 

O0AA 

7C 


LO 

A,H 


O0AB 

COC7D0 


CALL 

IMPA 


O0AE 

70 


LO 

A,L 


O0AF 

CDC7D0 


CALL 

IMPA 


O0B2 

F1 


POP 

AF 


O0B3 

O0B4 

C9 

IHPDi 

RET 


p IMPRIME O DADO. 

O0B4 

F5 


PUSH 

AF 


O0B3 

3E2D 


LO 

A, 


O0B7 

0398 


OUT 

(UDPDAT) ,A 


O0B9 

F1 


POP 

AF 


O0BA 

COC7O0 


CALL 

IMPA 


O0BD 

3E20 


LO 

A, 32 


O0BF 

0398 


OUT 

(UOPOAT) ,A 


O0C1 

3E01 


LO 

A,1 

f ACENDE FLAG 

O0C3 

325DF8 


LO 

(FLE> ,A 

pOE ERRO. 


IMPAI 


RET 


oec6 

DRC7 

C9 

oec7 

F5 

DeC8 

CB3F 

oecA 

CB3F 

DBCC 

CB3F 

D«CE 

CB3F 

OBD» 

AiECDA 

DOO 3 

81 

DADA 

4F 

DADS 

3EAA 

DAD7 

88 

DAD8 

47 

DAD9 

AA 

DADA 

D398 

DADC 

F1 

DADD 

EAAF 

DADF 

AIECDA 

DAE2 

81 

DAE3 

4F 

DAE4 

3EAA 

DAEó 

88 

DAE7 

47 

DAE8 

AA 

DAE9 

D398 

DAEB 

DAEC 

C9 

DAEC 

3A313233 

DAFA 

34353Á37 

DAFA 

38394142 

DAFB 

DAFC 

43444546 

DAFC 

ADAAS34S 

DIAA 

4D2A4SS2 

DIAA 

524F53AD 

DIAB 

AAAA 


MENS8 


fROTINA eUE 


PUSH 

AF 

1 IMPRIME O 

SRL 

A 

9 VALOR DO 

8RL 

A 

f ACUMULADOR 

SRL 

A 


SRL 

A 


LD 

BC, BASE 


ADD 

A,C 


LD 

C,A 


LD 

A, A 


ADC 

A,B 


LD 

B,A 


LD 

A, (BC> 


OUT 

(VDPDAT) ,A 

tlB. DIGITO 

POP 

AF 


AND 

15 


LD 

BC, BASE 


ADD 

A,C 


LD 

C,A 


LD 

A, A 


ADC 

A,B 


LD 

B,A 


LD 

A, €BC> 


OUT 

RET 

<UDPDAT> ,A 

|2S. DIGITO 

DEFB 

'AÍ23456789ABCDEF ' 


DEFB 'SEM ERROS 13 , iO , • 


Para executar o verificador, voc8 deveri uti- 
lizar os comandos OEFUSR:&HC000 e PRINT USR{0) ou en- 
tão tente implementá-lo como comando alterando o hook 
do comando IPL (que não é usado pelo sistema). 


AS VELOCIDADES DE GRAVAÇÃO 

Uma curiosidade do sistema da cassete do MSX 
6_a possibilidade de se alterar a veldcidade de grava- 
ção por software. Oe fato. existem duas variáveis do 
sistema que indicam a velocidade com que um bit é en- 
viado à fitai 


LOW <&HF406-«HF407) : 


Estes dois bytes determinam a duração do pul- 
so correspondente a um bit 9. 0 primeiro byte indica a 
duração da parte baixa do pulso, e o segundo dá a par- 
te alta do mesmo. 

HIGH <ÃHF408-«HF409) : 

O mesmo que LOW, só que para o bit 1. 

Quando o computador á inicial izado, a veloci- 
dade de gravação é ajustada para 1290 BPS (bits por 
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segundo), e os valores iniciais dessas variáveis são> 


LOW: 

«HF406 

83 

( dec i mal > 


&HF407 

92 

(dec i mal ) 

HIGH: 

«HF408 

38 

(decimal) 


&HF409 

45 

( dec i mal > 

E os valores 

para 2499 BPS são> 



LOW; 

«HF406 

37 

(dec i mal ) 


&HF407 

45 

( dec i mal ) 

HIGH: 

&HF408 

14 

(decimal) 


«HF409 

22 

(decimal) 


Existe também uma variável chamada HEAOER 
(&HF^0A). que indica o comprimento (em bits) do sinal 
agudo ("header”) que antecede as gravações. Normalmen- 
te, seu valor é de 15 (para 1209 BPS) e de 31 (para 
2^90 BPS). O número de bits enviados é igual ao con- 
teúdo de HEAOER multiplicado por 128. Assim, o ”hea- 
der” possui 1929 bits de comprimento para 1200 BPS, e 
3968 bits para 2409 (evidentemente, aproximações de 
2009 bits e 4990 bits respectivamente). Note que esta 
diferença de comprimento é devida á diferença de dura- 
ção de um bit individualmente, que no segundo caso é 
metade do primeiro, e com isto os dois "headers" t8m a 
mesma duração global. Trocando em miúdos, o "header" 
pode ser entendido como um gigantesco byte em que to- 
dos os bits estão ‘'setados'* (em nível 1). 

O fato mais marcante do sistema cassete NSX é 
0 modo como ele IS as gravaçõesi as leituras são as- 
síncronas, ou seja, quem determina a velocidade de 
leitura não é o computador, mas a própria gravação. Oe 
fato, se você gravar um programa com as variáveis LOW 
e HIGH alteradas (e portanto com velocidade alterada), 
conseguirá ler esses dados sem problemas, mesmo que as 
duas variáveis tenham sido restauradas (ou até altera- 
das para valores absurdos). Isto é muito vantajoso em 
termos de confiabilidade, já que, contrariamente a ou- 
tros sistemas, as variações de rotação de um gravador 
não afetam a leitura dos dados. 

Após conhecer este sistema tão flexível, você 
já deve estar pensando em alterar as variáveis LOW e 
HIGH para um valor muito menor com o objetivo de au- 
mentar a velocidade de gravação. Teoricamente isso é 
possível até mais de 5990 BPS, mas é importante 
atentar para dois fatosi 
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1. Não é qualquer gravador que consegue gra- 
var sinais tão rápidos, e qualquer fita reti-ios. Um 
Oata-Corder da Gradiente foi testado com fita cromo e 
superou a marca dos ^090 BPS com uma grande gama de 
volumes e 109 por cento de acerto, o que é muito bom. 
Mas isto não é tudo. 

2. O filtro de áudio dos MSX í dimensionado 
para bloquear sinais mais lentos que 1299 BPS e mais 
velozes que 2499 BPS. Trata-se de um filtro passa-ban- 
da que serve para reduzir as interferências, mas que 
também limita a velocidade de gravação. A resposta 
desse filtro é implacável, atestando a boa qualidade 
conferida por seus fabricantes. 

Percebe-se que aumentar a velocidade de gra- 
vação não é tão simples, pois torna-se necessário pos- 
suir ^conhecimentos de Eletrônica e "meter a mão na 
massa" alterando o filtro passa-banda do micro. Se vo- 
cê tentar (a conseguir) fazê-lo. escreva-nos contando 
sua experiência. 
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□1 J o SISTEMA 

DE 

CARTUCHO 


Neste capítulo veremos basicamente, como o 
sistema MSX inicializa e reconhece o que está conec- 
tado em cada um dos seus slots; como trabalha com os 
cartuchos de programas; onde estão localizadas as va- 
riáveis que 0 MSX utiliza para armazenar as informa- 
ções sobre cada Slot; como funcionam os inicial izado- 
res de jogos para jogos que estavam em cartucho e como 
relocar programas em Assembly para as páginas 9 e 1 de 
um Slot no qual existe memória RAM e como implementar 
0 comando CALL através do BASIC. 

Para o leitor menos familiarizado com o sis- 
tema MSX, recomendamos que antes de ler este capítulo, 
leia ou revise os conceitos básicos sobre slots e pá- 
ginas de memória no livro "Aprof undando-se no MSX", 
desta mesma Editora. 


INICIALIZAÇÃO DO SISTEMA 

Toda vez em que voei liga seu computador MSX, 
ele começa procurando "onde" está contida a memória 
RAM em seu sistema, sendo que essa procura é feita 
tanto nos slots primários, quanto nos secundários. 

Essa procura de memória RAM i inicializada 
testando-se, em primeiro, lugar a região de memória 
SrHBFFF; decrescendo até o endereço &H8990 e, após ter 


achado um slot que a contenha, habilita assa piqina 
para poder usá-la. Continua á procura de memória RAM, 
repetindo o processo descrito acima, s6 que desta vez, 
fazendo teste na memória que vai do endereço &HFFFF 
decrescendo até o endereço &HC990 e também a habilita 
para ser usada. 

Entretanto, mesmo que o sistema já tenha lo- 
calizado em qual slot, e em que página existe memória 
RAM, 0 MSX irá fazer outra busca de memória RAM, só 
que agora, procurando um bloco continuo de memória que 
possa ser habilitado desde o endereço &HFFFF até 
&H8090. Em seguida, será feito um teste para habilitar 
definitivamente um bloco de memória que estiver ”mais 
perto” do slot 0 ou, no própio slot 0, mas desde que 
esse esteja expandido. 

Após esses breves mas complicados testes, o 
MSX irá fazer todo o resto da sua inicialização, como 
por exemplo, a configuração das variáveis do sistema 
para, logo em seguida, começar a procurar os cartuchos 
de programas e passar a executá-los. 


RECONHECIMENTO DE CARTUCHOS 

Um cartucho conectado em um dos slots do MSX 
pode ser reconhecido, basicamente, através dos dois 
primeiros bytes da memória desse mesmo cartucho, atra- 
vés de uma pequena procura feita pelo sistema após ser 
ligado e ter feito os testes que foram descritos 
acima. 

Na realidade, existem vários bytes que ajudam 
0 MSX a reconhecer um cartucho de programas. 

A figura 5.1 apresenta, esquematicamente, 
esses bytes. 

IDENTIFICATION - IDENTIFICAÇÃO 

São usados nestes dois primeiros bytes os va- 
lores 6H41 e ÍFM2 ("A” e "B” ) para identificar um car- 
tucho de programas ROM de páginas vazias. 

INIT - INÍCIO 

Estes bytes contém o endereço para o procedi- 
mento de inicialização para o cartucho que vai ser e- 
xecutado. No caso de NAO se desejar uma inicialização 
desse mesmo cartucho, deve ser colocado nestes bytes, 
0 valor 00. Tais bytes só são usados caso NAO se dese- 
je trabalhar cooperativamente com o Interpretador 
BASIC, como por exemplo, nos jogos em Assembly. 
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FIGURA 5.1 - Bytes usados para reconheci lento pelo sisteia 



Exemplificando uma execução direta de um 
cartucho de programas, poderíamos ter um dump de memó- 
ria semelhante ao da figura 5.2. 

FIGURA 5.2 - Duap do início de ua cartucho 

+ — endereço de execução 


-teee 10 40 xx xx xx xx ab 

4008 XX XX XX XX XX XX XX XX .. 

4010 XX XX XX XX XX XX XX XX .. 


7FFF 

No dump da figura 5.2. logo após ligarmos o 
computador, ele iró habilitar o cartucho e passar a e- 
xecutar o programa contido no cartucho a partir do en- 
dereço &H4010. 


STATEMENT - EXPANSÃO DE COMANDOS 

Estes bytes devem conter o endereço no qual 
0 processador deverá executar o programa em Assembly, 
quando se deseja trabalhar cooperat i vamente com o In- 
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tarpratador BASIC. Caso não sa queira, deve ser colo- 
cado nestes bytes, o valor 99. 

I Quando o Interpretador BASIC do MSX encontra 
0 comando CALL <NOME>, ele irá colocar o nome com que 
foi chamado o dispositivo na área de sistema para, lo- 
go em seguida, executar o endereço contido nestes by- 
tes. Para usar esse tipo de chamada através do BASIC, 
temos um procedimento a ser seguido, que é explicado 
abaixo i 

1 - O par de registradores HL realiza função 
de apontador de texto. 

2 - 0 cartucho tem que estar habilitado da 
posição de memória que vai de &H4999 até &H7FFFH. 

3 - A sintaxe para se poder usá-lo ét 
CALL <NOME> C < ARGUMENTO) 3 


4-0 nome é estocado na área de sistema, 
terminado com 99. Deve-se lembrar que o buffer para o 
nome tem um comprimento fixo e máximo de 16 bytes, mas 
0 nome não pode ter mais do que 15 caracteres. 

5 - Se não existir o nome no cartucho com que 
foi chamado o programa, o mesmo deverá retornar ao 
BASIC com a CARRY FLAG setada e o apontador de texto 
(HL) descarregado. 

6 - Se existir o nome no cartucho (ou no pro- 
grama), este executará o programa, atualizará o apon- 
tador de texto (HL) para o fim do nome (usualmente, 
apontando para o byte 99 que indica fim de linha, ou 
"i” que indica fim de nome (declaração), e retorna com 
a CARRY FLAG resetada. No caso de se usar os argumen- 
tos, 0 apontador de texto é carregado com o endereço 
que aponta para o primeiro caracter não branco (99) 
após 0 nome. 

NOTA I TODOS OS REGISTRADORES PODEM SER DES- 
TRUÍDOS, EXCETO 0 REGISTRADOR ÍSP3. 


DEVI CE - EXPANSiO DE DISPOSITIVOS 

Estes bytes contém o endereço de execucão do 
programa, o qual contém uma rotina para a manipulação 
de um dispositivo, se este estiver contido no cartu- 
cho. Caso não exista um dispositivo (e um programa pa- 
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ra esta manipulação), estes bytes deverão conter o 
valor 99. 


Caso exista um dispositivo, o BASIC irá exe- 
cutar esse endereço de acordo com o nome que estiver 
na área de sistema. Para usar mais essa facilidade que 
0 BASIC MSX nos permite, temos o seguinte procedimen- 
to: 


1 - O cartucho tem que estar habilitado, da 
posição de memória que vai de &H<t999 até &H7FFF. 

3 - O nome do dispositivo é estocado na área 
de sistema, terminado com 99. O buffer para esse nome 
tem comprimento fixo de 16 bytes, mas o nome do dispo- 
sitivo não pode ser maior do que 15 caracteres. 

3 - Um cartucho de 16 Kbytes pode ter até ^ 
dispositivos lógicos. 

4 - Quando o BASIC encontra o nome de um dis- 
positivo que ele mesmo não reconhece, ele chama o sis- 
tema de expansão de dispositivos (SOFTWARE) com o va- 
lor FFH no registrador A. Se o manuseio para aquele 
dispositivo não estiver implementado no cartucho, ele 
irá retornar com a CARRY FLAG setada. Entretanto, se 
estiver implementado, a identificação (ID) do disposi- 
tivo (de 9 a 3) será retornada no registrador A, e a 
CARRY FLAG resetada. 

5 - Uma operação de arquivamento é realizada 
quando o cartucho reconhece um dispositivo próprio, e 
essa operação é especificada pelos seguintes valores 
passados pelo registrador A i 


e 

- 

Open 

2 

- 

Glose 

4 

- 

1/0 r andãm i CO 

6 

- 

Saída sequencial 

8 

- 

Entrada sequencial 

1 0 

- 

Função LOC 

12 

- 

Função LOF 

14 

- 

Função EOF 

16 

- 

Função FPOS 

18 

— 

Cop ia um caracter 


A identificação do dispositivo é passada na 
variável de sistema "OEViCE”. 


93 



TEXT - TEXTO 


Estes bytes contém o endereço do texto BASIC 
(tokenizado) contido no cartucho. Caso você não queira 
colocar um programa em BASIC no cartucho, estes bytes 
devem conter o valor 09. 

Caso exista o programa BASIC, o sistema iré 
pegar estes dois bytes como endereço inicial do texto 
BASIC, setará o apontador e iniciaró a sua execucão. 

Para implementar o texto BASIC em cartucho, 
sugerimos que sejam seguidas as regras abaixoi 


1 - Quando existir mais do que um cartucho 
semelhante conectado em um dos slots, o sistema irá 
executar o cartucho de programas que estiver ”maís 
próximo" do Slot 9. 

2-0 cartucho deve estar habilitado para que 
seja executado entre os endereços &H8999 até &HBFFF e 
0 programa BASIC não poderá exceder a 16 Kbytes. 

3 - Se existir memória RAM em qualquer outro 
Slot na região de memória que vai do endereço &H8999 
até &H8FFF, esta não poderá ser usada. 

4 - 0 endereço apontado pelos bytes &H8998 e 
&H8909 (início do texto BASIC), deverá conter o valor 
99. 


5 - Quanto aos números de linhas (para decla- 
rações que referenciam números de linhas, tal como 
GOTO, GOSUB, etc), a melhor opcão é a transformação em 
Apontadores em Progresso, pois em se tratando de um 
cartucho de memória ROM eles nunca serão convertidos 
para apontadores quando em execucão. 


VARIÁVEIS DO SISTEHA DE SLOTS 

Assim como outras variáveis do sistema, o MSX 
possui também uma área na qual estão contidas todas as 
informações (variáveis) a respeito dos slots, e que 
podem ser consultadas ou modificadas pelo sistema ou 
pelo usuário. Essas variáveis são atualizadas pelo 
sistema de modo que em qualquer momento o MSX possa 
saber o que esta conectado em seus slots, como por 
exemplo, um cartucho com expansão de comandos (comando 
CALL), alguns dispositivos como um cartão de 89 colu- 
nas, RS232-C. etc. 



Todas as variáveis do sistema que se referem 
aos slots são explicadas abaixo junto com os endereços 
onde estão localizadas cada uma delas. 

EXPTBL - &HFCC1 - Indica qual Slot está expandido. No 
caso de um slot estar expandido, ele deverá conter o 
valor &H60 e, caso contrário, deverá conter zero. 


&HFCC1H DEFB 00 PARA O SLOT 0 
&HFCCSH DEFB 00 PARA O SLOT 1 
&HFCC3H DEFB 00 PARA O SLOT 2 
&HFCC<4H DEFB 00 PARA 0 SLOT 3 

SLTTBL - &HFCC5 - Esta variável, que tem quatro bytes, 
indica qual o valor corrente na saída dos quatro pos- 
síveis registradores de slots secundários. O conteúdo 
de cada variável somente será válido se a referida 
variável em EXPTBL estiver com o valor &H80. 


&HFCC5H 

OEFB 

00 

PARA 

0 

SLOT 

0 

&HFCC6H 

DEFB 

00 

PARA 

0 

SLOT 

1 

&HFCC7H 

DEFB 

00 

PARA 

0 

SLOT 

2 

&HFCC8H 

DEFB 

00 

PARA 

0 

SLOT 

3 


SLTATR - &HFCC9 - Esta variável do sistema que possui 
bytes, contém os atributos para cada página, de to- 
dos os slots, inclusive os expandidos. 

Cada byte nestas variáveis contém a Informa- 
ção correspondente a cada página, e o valor de cada um 
desses bytes deve estar de acordo com os referentes 
bits (setados ou resetados) conforme o seu significa- 
do, ilustrado na figura 5.3 . 

FIGURA 5.3 - Estrutura de ue byte da SLTART 

7 6 5 4 3 2 1 0 



Não usado 
Não usado 
Não usado 
Não usado 
Não usado 

Expansão de comandos 
Expansão de dispositivos 
Texto BASIC 
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Entretanto, além de saber os valores destas 
variáveis, devemos saber como estão organizadas, e co- 
mo localizar cada página de cada Slot. Para isso. de- 
vemos levar em conta que i 

1 - Esses 64 bytes são divididos em quatro 
blocos de 16 bytes cada e abrangem inclusive os slots 
secundários, como mostrado na figura 5.4 . 

FIGURA 5.4 - Divisão esqueeática da SLTATR 


SLOT e 


SLOT 1 


SLOT 2 


SLOT 3 


FFC9H FCD9H FCE9H FCF9H FE09H 


2 - Entretanto cada Slot mostrado na figura 

5.4 tem mais quatro divisões, cada uma com 4 bytes 
que representam cada slot lógico, inclusive os expan- 
didos. como mostrado na figura 5.5 . 

FIGURA 5.5 - Subdivisão da SLTATR. 


SLOT xA 

SLOT xB 

SLOT xC 

SLOT xD 


O Slot xA representa o slot primário x. onde 
X pode ser qualquer um dos slots de 0 a 3. o slot xB. 
0 primeiro slot secundário, no caso de estar expandi- 
do. e assim por diante. 

3 - Mas. cada slot da figura 5.5 é dividido 
em mais quatro partes, de 4 bytes cada, que represen- 
tam as páginas de cada um dos slots. como ilustrado na 
figura 5.6 

FIGURA 5.6 - Célula de 4 bytes da SLTATR. 


PÁGINA 0 

PÁGINA 1 

PÁGINA 2 

PÁGINA 3 
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SLTWRK - &HFO09 - Esta variável com o comprimento de 
158 bytes, tem a mesma estrutura da variável SLTATR. 
mas. ao Invés de ter apenas um byte para cada pagina, 
possui S bytes para indicar qual a área de trabalho 
reservada e/ou para servir como área de trabalho para 
cada página. 

PROCNM - &HFD89 - Nesta variável de 16 bytes de com- 
primento. é colocado 0 nome para ser comparado. Veja 
no item 4 (STATEMENT) sobre o reconhecimento de cartu- 
chos pelo sistema e no item 2 (OEVICE) sobre a expan- 
são de dispositivos. 

OEVICE - &HF099 - Variável de identificação de um dis- 
positivo. conforme a explicação sobre expansão de dis- 
pôs i t í vos . 


INITGAMES - INICIALIZADORES DE JOGOS 

Veremos neste item. o funcionamento dos ini- 
cializadores de jogos (initgames) que estavam em car- 
tuchos e que funcionam nas páginas 1 e 2. de RAM. si- 
mu I taneamente . 

Os initgames. além de serem utilizados para 
fazer funcionar os jogos que estavam em cartuchos, 
também podem ser utilizados, isto é. quando bem uti- 
lizados. para relocar rotinas em linguagem de máquina 
para as páginas 0 e 1; transferir variáveis (por exem- 
plo de um banco de dados) ou mesmo programas em BASIC 
para estas mesmas páginas e muitas outras aplicações. 

Algumas dessas aplicações são mostradas a 
seguir, como por exemplo, os initgames de 16 Kbytes, 
de 32 Kbytes e também o uso do mesmo em conjunto com 
uma implementação do comando CALL através do BASIC. 


INITGAME ÍÁK 

0 programa da figura 5.7. foi feito para ser 
utilizado com programas de 16 Kbytes, que funcionem na 
página 1 do Slot que tiver memória RAM. sendo que o 
mesmo deverá ser adicionado no final do programa As- 
sembly com o qual vai ser usado. 

Oeve-se levar em conta que o initgame descri- 
to abaixo irá fazer somente os testes de memória RAM 
nos slots primários, tendo em vista que no momento da 
edição deste livro ainda não haviam sido lançados t^n- 
to expansor de slots. como cartuchos de memória RAM. 
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FIGURA 5.7 - Initgaie Í6K 


; AH91O0 

7 • • 

> .. PROGRAMA A SER DESLOCADO 

rSHDOFF 





ORG 

0O100H 


D100 

OBA8 


IN 

A, (0A8H> 

fLE valor da ppi. 

0102 

C610 


AOO 

A, 10H 

SSOHA 16 PARA OBTER 

tO ultimo valor 

SPOSSIVEL PARA A PPI- 

0104 

324801 


LO 

(UAR2) r A 

; SALVA 0 VALOR. 

0107 

C6F4 


AOO 

A,0F4H 

SSOMA 244 PARA OBTER 






|0 PRIMEIRO VALOR 
sPOSSIVEL PARA A PPI- 

0109 

324701 


LO 

<OARl ) , A 

S SALVA O VALOR. 

D10C 

03A8 


OUT 

(0A8H> ,A 

rMUDA A PPI- 

D10E 

D10C 

3EAA 

OUTROS 

LO 

A,0AAH 


0110 

320040 


LO 

( 4000H) , A 

r TESTA SE OA 

0113 

3A0040 


LO 

Ar (4000H) 

fpara escrever 

0116 

FEAA 


CP 

0AAH 

fOAOOS NA PAGINA 1. 

OiiB 

200C 


JR 

NZ.PROX 

SSE NAO OERr SALTA. 

01 lA 

3E55 


LO 

Ar05SH 

fREPETE 0 TESTE COM 

OllC 

320040 


LO 

(04000H> r A 

; OUTRO VALOR DE A. 

DllF 

3A0040 


LO 

Ar (04000M> 


0122 

FE55 


CP 

0S5H 


0124 

2812 


JR 

Zr TRANSF 

fachou a ram. 

0126 


PROX3 



fCHAVEIA PROXIMO 

0126 

3A4701 


LO 

Ar <UAR1 > 

fSLOT (NA PAGINA 1). 

0129 

C604 


AOO 

Ar04H 

fproximo valor 

012B 

324701 


LO 

(UARl > r A 

FOA PPI- 

012E 

03A8 


OUT 

(0A8H> r A 

fENVIA 0 VALOR. 

0130 

47 


LO 

B r A 


0131 

3A4801 


LO 

Ar CUAR2) 


0134 

B8 


CP 

B 

F TESTA SE ACABARAM 

0135 

2007 


JR 

NZ, OUTRO 

fOS SLOTS. 

0137 

0138 

C9 

TRANSFs 

RET 


FRETORNA. 

0138 

210080 


LO 

HLr8000H 

fINICIO OO BLOCO. 

0138 

110040 


LO 

OEr 4000H 

fINICIO do destino. 

D13E 

010040 


LO 

BCr 4000H 

F TAMANHO DO BLOCO. 

0141 

EOB0 


LOIR 


F TRANSFERE. 

0143 

2A0240 


LO 

HLr (4002H> 

fle o END. execucao. 

0146 

E9 


JP 

(HL> 

fSALTA para o endereço 

0147 

00 

UARl s 

OEFB 

0 


0148 

00 

OAR2S 

OEFB 

0 


0149 



ENO 




Na figura 5.7 , a rotina que realmente nos 
interessa é justamente aquela que faz os testes para a 
localização da memória RAM ( endereço &HC000 até &HC937) 
pois essa mesma rotina pode ser utilizada com qualquer 
programa, desde que sejam feitas as devidas modifica- 
ções . 

Note que o programa a ser relocado deve ficar 
a partir do endereço &H9199. pois assim existe a pos- 
sibilidade de ser feito um programa de apresentação em 
BASIC e que também carregue o JOGO. 



INITGAME 32K 


Esta versão de initgame tem. como os inítga- 
mes anteriores, a mesma rotina principal de teste, 
mas, sõ que desta vez será utilizada para relocar um 
programa de 3SK usando as páginas 1 e 2 do stot que 
tiver memória RAM. 

Será usado um programa em BASIC para carregar 
as duas partes do programa de 3SK. Ele será destruído 
durante o carregamento da segunda, pois a área normal 
de execução do programa em assembly é a ocupada pelo 
programa BASIC. 

Observe na figura 5.8 alguns exemplos de pro- 
gramas garregadores em BASIC. 

FIGURA 5.8 - Exeeplos de prograias 


Í0 PR INT"Car regando jogo xnxxxkxmxkx'"' 
20 BLOAD" JOGO-A. B IN", R 
30 BLOAD"JOGO-B.BIN",R 


Ou qualquer outro programa que tenha como e- 
feito 0 carregamento de programas em Assembly. 0 pri- 
meiro initgame de 32K está ilustrado na figura 5.9. 

FIGURA 5.9 - Initgaae 32K (11 PARTE) 


9100 

.. PROGRAHA NO. i 
D0FF 


í 


D100 

08Aa 

D102 

324CD1 

D10S 

CA10 

D107 

324DD1 

D10A 

C6F4 

D10C 

324CD1 

D10F 

03A8 

Dl 1 1 

3EAA 

0113 

320040 

Dlló 

3A0040 

D119 

FEAA 

0118 

200C 

Dl lO 

3E55 

DllF 

320040 

D1Z2 

3A0040 

0125 

FE55 

0127 

2812 


ORO 

IN 

LD 

AOD 

LD 

ADO 

LD 

OUT 

OUTRO» LD 
LD 
LD 
CP 
JR 
LD 
LD 
LD 
CP 
JR 


ODIOOM 
A. <OA8H> 
(UARi > ,A 
A, lOH 
(UAR2) r A 
Ar«F4H 
(UARi ) , A 
<OA8H > ,A 
Ar OAAH 
(4OO0H) r A 
Ar < 4000H) 
0AAH 
NZrPROX 
Ar05SH 
(04000H> r A 
Ar (04000H) 
055H 
Zr TRANSF 
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J 


012V 

3A4C01 

PROXs 

LO 

Ar ( VARl > 

012C 

CÀ04 


AOO 

A.04H 

D12E 

324C01 


LO 

(VARl > r A 

0131 

03A8 


OUT 

<0A8H> r A 

0133 

47 


LO 

Br A 

0134 

3A4001 


LO 

Ar (UAR2> 

0137 

B8 


CP 

6 

0138 

2007 


JR 

NZrOUTRO 

013A 

C9 


RET 


013B 

210091 

TRANSF 

:L0 

HLr910OH 

013E 

110040 


LO 

OEr 4000H 

0141 

010040 


LO 

BCr 4000H 

0144 

EOB0 


LOIR 


0146 

3A4CD1 


LO 

Ar <UAR 1 > 

0149 

03A8 


OUT 

(0A8H) r A 

014B 

C9 


RET 


014C 

00 

VARl I 

OEFB 

0 

0140 

00 

OAR2t 

OEFB 

0 

014E 



ENO 



Como podemos observar, nesta pequena rotina 
de teste foram incluídas mais três instruções que ar- 
mazenam e recuperam um byte na região de dados que nos 
fornece o estado original da configuração dos slots. 
Este dado só será usado para reconfigurar os slots 
quando o programa for voltar ao BASIC. 

Ao contrário dos initgames anteriores, neste 
devemos relocar a primeira parte do programa Assembly 
para a página 1. Depois retornar ao BASIC, prosseguin- 
do com 0 carregamento da segunda parte. 

A segunda parte deve ser carregada a partir 
do endereço &H8000. pois não precisaremos mais do pro- 
grama carregador BASIC. 

A diferença entre o initgame do primeiro e do 
segundo blocos, é que no segundo não há as instruções 
de transferência de bloco (LDIR). pois o segundo bloco 
já é carregado na sua área de execução. Ele também 
habilita a página 1 que já contém o primeiro bloco, 
pesquisa os bytes que contém o endereço de execução 
(INIT) e parte para a execução do cartucho. 

Para que possa ficar mais claro, examine a rotina fi- 
nal do programa na figura 5.10 . 

FIGURA 5.ie - Initgaae 32K (2§ PARTE) 


; .. PROGRAMA NO. 2 

? . . 
jBFFF 




ORG 

0C000H 

C000 

OBA8 

IN 

Ar (0A8H) 

C002 

3240C0 

LO 

<UARi ) r A 

C005 

C610 

ADO 

A r 10H 

C007 

3241C0 

LO 

<UAR2) r A 

CO0A 

C6F4 

ADO 

A,0F4H 

C00C 

3240C0 

LO 

< VARl ) r A 

C00F 

03A8 

OUT 

<0A8H) r A 

C011 


OUTROS 


C011 

3A40C0 

LO 

Ar < VARl ) 
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C014 

320040 


LD 

<4000H> , A 

C017 

3A0040 


LD 

A, (4000H) 

COIA 

FEAA 


CP 

0AAH 

C01C 

200C 


JR 

NZ.PROX 

C®1E 

3E55 


LD 

Ar05SH 

C920 

320040 


LO 

(04000H) , A 

C023 

3A0040 


LO 

A, (04000H) 

ce2ó 

FE55 


CP 

05SH 

C«28 

C02A 

2812 

PROXs 

JR 

ZrEXECUT 

C02A 

3A40C0 


LD 

Ar (UARl > 

ce2D 

C604 


AOD 

Ar04H 

C02F 

3240C0 


LD 

< VAR i > r A 

C032 

03A8 


OUT 

(0A6H) r A 

C034 

47 


LD 

B rA 

C035 

3A41C0 


LD 

Ar (VAR2> 

C038 

68 


CP 

B 

C039 

C03B 

C03C 

2006 

C9 

EXECUTS 

JR 

RET 

NZr OUTRO 

C03C 

2A0240 


LD 

HLr (4002H) 

C03F 

E9 


JP 

<HL) 

C040 

00 

V7AR1 s 

DEFB 

0 

ce4i 

C642 

00 

V7AR2S 

DEFB 

END 

0 


INITGAME PLUS 


Nesse initgame, não serão usadas as rotinas 
"normais’* de transferência de blocos, mas duas rotina 
existentes no BIOS. 

A primeira rotina i a WRSLT, que tem como en- 
try point o endereço &H0014 e necessita dos seguintes 
valores nos registradores< 

A - FxxxSSPP 

I I I 

I I I 

1 ! + — Slot primário (0-3). 

I I 

I I 

! + Slot secundário (0-3). 

I 

I 

1 1 se 0 Slot secundário 

for especificado. 

HL - Endereço de memória no qual 
será escrito o dado. 

E - Dado a ser escr i to. 

A segunda rotina é a CALLF, tem como entry 
point 0 endereço &H0030. e ela seleciona o Slot apro- 
priado para a execução automáticamente. Sua execução é 
feita através da instrução RST 30H da seguinte forma: 

RST 30H 

DEFB XX ;Slot em que está o programa a 
ser executado. 

OEFW xxxx ;Endereço de execução do programa 
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Esta versão de inítgame é dada na figura 5.11 


FIGURA 5.Ü - Initgaie usando rotinas do BIOS 

r • • 

; . . PROGRAMA A SER DESLOCADO 

j BFFF 





ORG 

0C000H 



08A8 


IN 

A^ < 0A8H) 

rLE O VALOR DA PPI. 

C0Ô2 

E6C0 


AND 

1 1000000B 



CB07 


RLC 

A 



CB07 


RLC 

A 


c»ee 

321DC0 


LD 

(0C01DH) , A 

íALTERA O PROGRAMA 

C0OB 

322CC0 


LD 

(0C02CH) . A 

jCOM 0 VALQR CORRETO 






yDA PPI PARA 0 SLOT- 

C00E 

010040 


LO 

BC , 4000H 

INUMERO DE BYTES- 

C011 

1 100B0 


LD 

OE,8000H 

rEND- ORIGEM. 

C014 

210040 


LO 

HL r 4000H 

fend. destino. 

C017 


PROXS 




C0i7 

C5 


PUSH 

BC 

íSALVA REGISTROS. 

COiS 

E5 


PUSH 

HL 


C019 

D5 


PUSH 

DE 


C01A 

lA 


LD 

A» (DE> 

?LE DADO A TRANSFERIR. 

C01B 

5F 


LD 

E,A 


COlC 

3E00 


LD 

A, 00 

SA CONTEM SLOT DESTINO. 

COiE 

CD1400 


CALL 

0014H 

iCOPIA 0 DADO. 

C021 

Dl 


POP 

DE 

? 

C022 

Ei 


POP 

HL 

yRESTAURA REGISTROA. 

C023 

Cl 


POP 

BC 


C024 

23 


INC 

HL 


C025 

13 


INC 

DE 

;ATUALIZA VALORES. 

C02À 

0B 


DEC 

BC 


C027 

78 


LD 

A,B 

? TESTA SE CHEGOU A 0. 

C028 

BI 


OR 

C 

fSE NAO, VOLTA 

C029 

20EC 


JR 

NZ ,PROX 

?AO LOOP- 

C02B 

F7 


RST 

30H 

;FAZ A CHAMADA. 

C02C 

00 


DEFB 

00 

rNUMERO DO SLOT. 

C02D 

0000 


DEFU 

0000 

;ENDEREO A CHAMAR. 


Esse initgame. s6 reloca e executa um progra- 
ma de 16K. Algumas modificações podem ser feitas fa- 
cilmente para adaptá-lo ao tamanho do programa a ser 
deslocado. 

0 uso de rotinas do BIOS limitam o initgame 
em alguns pontos. 0 endereço de execução do programa 
tem que ser especificado no próprio initgame (devido 
ao RST 30H), só trabalhar com os computadores com 6^ 
Kbytes de RAM e testar somente os slots primários. 

IMPLEMENTANDO O COMANDO CALL 

Vamos apresentar, nesse item. um programa 
simples mostrando a implementação do comando CALL 
através do BASIC, utilizando o initgame plus e alte- 
rando algumas variáveis de sistema. 

Supondo que não exista espaço de memória su- 
ficiente para trabalhar com um programa BASIC e com 
rotinas em linguagem de máquina. Uma possível solução 
poderia ser a transformação de uma boa parte do pro- 
grama BASIC em linguagem de máquina. Infelizmente na 
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maioria dos casos isto não é muito fácil. Outra solu- 
ção seria a compactação do programa BASIC ao máximo 
possf ve I . 

Caso não seja possível realizar nenhuma des- 
sas opções, poderemos "enganar” o sistema para que o 
mesmo reconheça algumas implementações (ou rotinas em 
Assembly) como se estivessem em cartucho. 

Para tal, deveremos escrever o programa em 
Assembly; como se o mesmo estivesse em cartucho, adi- 
cionarmos ao mesmo um initgame e atualizar o valor da 
variável de sistema SLTATR de acordo com a implemen- 
tação que, neste caso será a do comando CALL. Devido à 
implementação ser do comando CALL. o valor em SLTATR 
será de 20H. 

Entretanto, deve ser lembrado que o sistema 
MSX não reconhece por si só um dado nome utilizado em 
conjunto com o comando CALL e é necessário realizar 
esse teste mesmo que só vá ser utilizado um só nome. 
Caso contrário, poderemos colocar em conflito, várias 
chamadas (caso existam) desse comando. 

Para que possa ser melhor compreendido, o 
programa que realiza essa implementação foi dividido 
em duas partes. 

Na primeira parte do programa, a rotina da 
figura 5.12 irá fazer apenas o teste de slots, deslo- 
car a rotina para a página 1 e atualizar a variável 
SLTATR de acordo com a oágina em que irá funcionar. 

FIGURA 5.12 - Inicialização da iapiceentacão de ue coeando 


9 8^00 

t .. PROGRAMA A SER DESLOCADO 
» BFFF 




ORG 

0C000H 


CA00 

DBA8 

IN 

Ar (0A8H) 

;LE 0 OALOR DA PPI. 

C0O2 

EÓC0 

ANO 

110000008 


C004 

CB07 

RLC 

A 


C00À 

CB07 

RLC 

A 


C008 

321DC0 

LD 

(0C01OH) r A 

;ALTERA O PROGRAMA 

C00B 

322CC0 

LO 

<0C02CH) , A 

?COM O VALOR CORRETO 
;OA PPI PARA O SLOT. 

C00E 

010040 

LD 

BCr 4000H 

?NUMERO DE BYTES. 

C011 

110080 

LD 

DEr 8000H 

»ENO. ORIGEM. 

C014 

210040 

LO 

HL r 4000H 

jENO. DESTINO. 

C017 


PROXs 



C0Í7 

C5 

PUSH 

BC 

gSALVA REGISTROS. 

C018 

E5 

PUSH 

HL 


C01V 

D5 

PUSM 

DE 


C01A 

lA 

LD 

Ar (DE) 

fLE DADO A TRANSFERIR. 

C01B 

5F 

LD 

Er A 


C01C 

3E0 

LD 

Ar 00 

yA CONTEM SLOT DESTINO. 

C01E 

CDl 400 

CALL 

0014H 

ICOPIA 0 DADO. 

C021 

Dl 

POP 

DE 

» 

C022 

El 

POP 

HL 

yRESTAURA REGISTROA. 
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J 


C®23 

Cl 

POP 

BC 


C024 

23 

INC 

HL 


C®25 

13 

INC 

DE 

;ATUALIZA OALORES. 

C026 

0B 

DEC 

BC 


C027 

78 

LD 

A,B 

> TESTA SE CHEGOU A 

C028 

B 1 

OR 

C 

7SE nao, volta 

C029 

20EC 

JR 

N2,PROX 

5 AO LOOP. 

C02B 

F7 

RST 

30H 

;FAZ A CHAMADA. 

C02C 

00 

DEFB 

00 

;NUMERO DO SLOT. 

C02O 

0000 

DEFU 

0000 

iendereo a chamar. 


Os bytes entre o endereço &H9065 até &H9090 
nada mais são que o inítgame plus e portanto não há 
necessidade de comentá-los. 

Do endereço &H9091 até &H90A4 é onde, real- 
mente, se encontra a rotina de procura pelo Slot de 
memória RAM. A multiplicação por 16 serve para locali- 
zar qual dos 64 bytes da SLTATR deverá ser atualizado 
e 0 valor 1 é somado para fornecer à rotina, a página 
em que será usada a extensão de comandos. 


FIGURA S.i3 - Prograaa a ser chaiado pelo CALL 


ORG eveaeH 


9000 

41420000 

DEFU 

4241H.0 

íIDENTIF. CARTUCHO. 

9004 

10400000 

DEFU 

4010H . 0 

íENDEREO DO CALL. 

9008 

00000000 

DEFU 

0.0 


900C 

00000000 

DEFU 

0.0 


9010 

E5 

PUSH 

HL 

;SALVA POINTER DO BASIC. 

9011 

2189FD 

LO 

HL .0FO89H 

?HL CONTEM PROCNM. 

9014 

1 14040 

LD 

DE. 4040H 

?DE COM 0 NOME A TESTAR. 

9017 

0606 

LD 

B .06 

?B COM O TAMANHO 



rdo nome ♦ 

1. 


9019 


PROXs 



9019 

lA 

LO 

A. <0E> 

SCOMPARA LETRA A LETRA 

901A 

BE 

CP 

(HL) 

>DOS DOIS NOMES. 

901B 

2006 

JR 

NZ.FIM 

;SE HA DIFERENA SALTA 



;PARA 0 'Syntax «rror'. 


901D 

23 

INC 

HL 


901E 

13 

INC 

OE 

rproximo byte. 

901F 

10F8 

DJNZ 

PROX 


9021 

1803 

JR 

PR INT 


9023 


FIMf 



9023 

El 

POP 

HL 

íRESTAURA POINTER. 

9024 

37 

SCF 


; 'SETA ' A CARRY FLAG 



mPARA IMPRIMIR A 




;MENSAGEM OE ERRO. 


9025 

C9 

RET 



9026 


PRINTS 



9026 

CDC300 

CALL 

00C3H 

ILIMPA A TELA. 

9029 

3E0A 

LO 

A.0AH 

IPOSICIONA 0 CURSOR 

902B 

32DCF3 

LD 

<0F3OCH) .A 

INA POSICAO 10.10. 

902E 

32D0F3 

LO 

(0F3OOH> .A 


9031 

214640 

LD 

HL . 4046H 

»INICIO DA MENSAGEM. 

9034 

110000 

LO 

DE.0000H 

lINICIO DA VRAM. 

9037 

011B00 

LO 

BC.0016H 

1 TAMANHO DA MENSAGEM. 

903A 

CO5C00 

CALL 

005CH 

9 IMPRIME. 

9030 

AF 

XOR 

A 

IZERA A CARRY FLAG 



fP/ NAO ACUSAR ERRO. 


903E 

El 

POP 

HL 

9RESTAURA POINTER. 

903F 

C9 

RET 


9 RETORNA. 

9040 

54455354 

DEFM 

'TESTE ' 


9044 

45 




9045 

00 

DEFB 

0 


9046 

50S24F47 

DEFM 

'PROGRAMACAO 

AVANÇADA NO MSX ' 
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OEFU 


904A 52414041 
904E 434i4F2e 
9052 415Ó414E 
9056 43414441 
90SA 204E4F20 
905E 405350 
9061 00000000 


No programa da figura 5.13 . temos entre os 
endereços &H9090 e &H992S. a rotina que realiza o tes- 
te para verificar se o comando CALL TESTE é vAlido. 
Caso 0 mesmo seja. o programa continuari no endereço 
&H9036 ( ou &Hq026. quando em sua posição real), reali- 
zando um CLS e imprimindo a mensagem ^ PROGRAMAÇiO 
AVANÇADA NO MSX” e retornando ao BASIC com a- carry 
flag resetada para que o sistema reconheça a aceitação 
do comando. Se a palavra TESTE não for usada, o pro- 
grama setará a CARRY FLAG e o sistema Imprimirã uma 
mensagem de erro. 

Deve-se levar em consideração, que o MSX 
quando da entrada de uma palavra através do comando 
CALL. transforma todas as letras minúsculas em maiús- 
culas, portanto, a palavra que estiver no programa 
também deverá ser maiuscula, para que haja uma perfei- 
ta comparação. 
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CONSTRUINDO 
UM JOGO 
EM ASSEMBLY 

Chegamos, finalmente, ao último capítulo em 
que mostraremos um exemplo prático de muito do que foi 
visto ao longo deste livro. Veremos a construção de um 
jogo do tipo "videogame", com naves espaciais, bombas, 
invasores e lasers, bem ao estilo dos jogos "SPACE IN- 
VADERS”, chamado ORPHEUS. Neste jogo você controla um 
canhão terrestre que deve defender a Terra contra os 
invasores que entram soltando bombas. Em cada fase 
há oito invasores que atacam. Oito fases constituem 
um estágio que, sendo vencido, torna-se mais difícil 
devido à ação de sabotadores subterrâneos que tentam 
acertar seu canhão com um des i ntegrador de matéria. 

Vamos ver, então, algumas estruturas do 

programa. 

Comecemos pelo acesso aos "arrays", muito im- 
portante que foi usado repetidas vezes durante o jogo. 
Por esse método, o número do elemento é dado no regis- 
trador A, seu endereço retorna no par HL e o conteúdo 
volta em A, A figura 6.1 apresenta a listagem do aces- 
so aos arrays. 

^0 valor ARRAY aponta o endereço inicial do 
”array" (elemento de índice zero). Neste caso ca- 
da elemento ocupa um byte, mas pode ocupar n bytes, 
bastando para isso repetir a instrução ADD HL, BC é 
LO A,(HL ) n vezes. 



FIGURA 6.1 - Controle dos invasores 


LD HL,ARRAY 
LD 

LD C,A 
ADD HL, BC 
LD A, (HL) 

RET 

ARRAY". DB 2 , 3 , í , í €» , 2 , 4 . . . 

Outra novidade é o pseudo-a I eator i zador . que 
sempre devolve o valor entre 0 e 255 no registro A. Na 
verdade, ele apenas lê bytes sucessivos de trechos 
"estratégicos” da ROM que se parecem muito com séries 
aleatórias. Uma limitação dessa rotina é a sua faixa 
de valores, estritamente fixada entre o 0 e 255. Como 
muitos trechos do jogo não funcionariam para essa fai- 
xa, adotou-se um truque que consiste em truncar os 
bits mais altos do valor retornado, passando a assumir 
um novo valor menor que o anterior. Para fazer isto 
usa-se a instrução AND n, com n valendo 3,7,15, etc 
para truncar os bits altos do registro A. 

Devido à impossibilidade de se Incluir os 
comentários na listagem do ORPHEUS devido à falta de 
memória, aqui estão eles em anexo: 

ENDEREÇO COMENTÁRIO 

C350 a C363:apaga os sprites dos sabotadores da tela. 
C36^ a C36F: imprime o cabeçalho do jogo. 

C370 a C387; inicial iza as variáveis. 

C388 a C393idefine os atributos de sprites do canhão. 
C39^ a C3A5:acerta a posição do canhão e dos tiros. 
C3A6 a C3B3: i n I c i a I i zacão final do canhão e bombas. 
C3B4 a C3B6: i ni c i a I i zacão das fases. 

C3B7 a C3C3szera os contadores de invasores destruí- 
dos, pausa de tempo e "status” do canhão. 
C3C<1 a C3D2: imprime o número das naves restantes. 

C3D3 a C410icontrola o canhão do jogador. 

C^ll a C^62iControla os disparos dos tiros. 

C463 a C<16BiChama os elementos móveis do jogo. 

C^6C a C472ttesta a explosão do canhão. 

C473 a C4A4>movimenta os tiros. 

C4A5 a C4BEi coordena invasores, bombas e verifica 
CO I i são . 

C4BF a C4E4iControla o som do tiro. 

C4E5 a C4EE:testa se todos os invasores foram 
destruídos e encerra loop central. 

C4EF a C4F4:procede troca da fase. 
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C<4F5 a C511 1 a I eator í zador . 

C512 a CSSCitesta press i onamento do botão de tiro. 
C520 a C553tmovímenta os tiros. 

C55^ a CSACi impr ime a nave. 

C5AD a C5C1 : ver i f i ca se o invasor existe. 

C5C2 a C55Cicalcula nova direção do invasor. 

C550 a C621 imovimenta e imprime o invasor. 

C622 a C626:verif ica se o invasor está em movimento. 

Se estiver, chama a rotina de bombas. 

C627 a C6^7:encerra loop dos invasores e atualiza 
tempor i zacão. 

C 6^8 a C65<tiCopia as coordenadas dos invasores na 
VRAM. 

C655 a C669:reinicia as trajetórias dos invasores. 

C670 a C 6 C 8 :mov imanta as estrelas. 

C6C9 a C 6 O 61 tempor i za os sabotadores. 

CBD7 a CBOCi ver i f i ca se não há sabotadores a imprimir. 
C600 a C740 imov imenta os sabotadores. 

C741 a C765iataca 0 canhão por baixo. 

C7BB a C789:faz a explosão do canhão. 

C790 a C79B:Sorteia se haverá nova bomba. 

C797 a C7A3scalcula um índice e verifica sua validade. 
C7A4 a C7B3: ver i f i ca se a bomba desse índice existe. 
C7B4 a C7C2:acerta a posição da bomba. 

C7C3 a C707 I progr ama a direção da bomba. 

C708 a C81 8: a tua I i za a posição da bomba. 

C819 a C825:Copia as coordenadas das bombas na VRAM. 
C82B a C 8 ^^: i ni ci a I i za as bombas. 

C845 a C 8 ^A:testa se houve choque entre sprites. 

C 8 ^B a C892: coordena 0 teste de tiros. 

C893 a C8A5> coordena 0 teste de bombas e invasores. 
C 8 AB a C 8 DF 1 comparador comum bomba/invasor. 

C8E0 a C929 : sub~rot I na de comparação do tiro com 
i nvasor . 

C92A a C9<tC:atual iza contador de invasores destruídos 
e controla 0 placar. 

C9<40 a C983: 1 n i c i a I i za os invasores. 

C98<4 a C991:acerta os registros do PSG. 

C992 a C9D8: imprime os placares. 

C908 a CA2C: inicia os sabotadores, bombas, invaso- 
res. e contadores de pontos e invasores. 

DIGITANDO O PROGRAMA ORPHEUS 

Se você deu uma olhada no Apêndice IV. já é 
possível digitar 0 programa ORPHEUS. Ele é formado por 
quatro listagens: uma em BASIC, que inicializa e con- 
trola 0 jogo e três blocos de dadosi a primeira forma- 
ta a tela. outra executa 0 jogo e a terceira define as 
trajetórias dos invasores. 
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Assim, comece digitando a figura 6.2 e 
grave-a com o nome "ORPHEUS”. 

FIGURA Ó.2 - Controlador do ORPHEUS, ei BASIC 


10 DATA 0,00,00,01 ,01 ,01 rO3rO7,0D, ÍD,3D, 

7D , 7D , 7F , 01 , 00 , 00 r 80 , 80 , C0 , C0 , C0 , E0 , F0 , D 

8 , DC , DE , DF , DF , FF , C0 , 00 , 00 

20 DATA 1 ,00,00,00,01 ,01 ,01 r00r00r00r00r 

00 , 00 , 00 , 00 , 00 , 00 r 00 r 80 , C0 , 80 , C0 , C0 , C0 , 8 
0,80,80,00,00,00,00,00,00 
30 DATA 2,00,00,00,01 ,0i ,00,00, 

00,00,00,00,00,00,00,80,80,40,80,80,80,0 

0,00,00,00,00,00,00,00,00 

40 DATA 3,00,00,00,00,00,00,00,02,02,02, 
02,02,00,00,00,00,00,00,00,00,00,00,00,2 
0,20,20,20,20,00,00,00,00 
50 DATA 4,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,80,80,80,80,80,00,00,0 

0,00,00,00,00,00,00,00,00 

60 DATA 5,00,00,00,01,01,00,00,00,00,00, 

00, 00, 00, 00, 00, 00, 80, 80, 80, C0,C0, 80, 00,0 

0,00,00,00,00,00,00,00,00 

70 DATA 6,00,00,01 ,03 ,03,01 ,07,0B ,07,03, 
02,02,02,0E,00,00,00,00,20, A0, A0,20,E0,A 
0 , E0 , A0 , A0 , 80 , 80 , 80 , E0 , 00 

80 DATA 7,00,00,01 ,03,03,01 ,07,08 ,07,03, 
02,02,02, 02 , 0E , 00 , 00 , 00 , 20 , A0 , A0 , 20 , E0 , A 
0,E0,A0, A0,80,80,E0,00,00 

90 DATA 8,00,00,01 ,03,03,01 ,07,07,03,03, 
«2 , 02 , 02 , 02 , 0E , 00 , 20 , 20 , 20 , A0 , A0 , 20 , E0 , E 
0 , A0 , 80 , 80 , 80 , 80 , 80 , E0 , 00 

100 DATA 9,00,00,00,00,00,01 ,09, ID, IF, ID 
, IF, ID, IF, IC, 1C,08,00,00,80,80,80,C0,C8, 
DC , FC , DC , FC , DC , FC , 9C , 1 C , 08 

110 DATA 10,00,00,00,00,00,00,01 ,03, 3F, 7 

F, IC, 1 D, 03, 07, 06, 00, 00, 00, 04, 08, 10,60, C0 

,C8,30,70,E0,C0,80,00,00,00 

120 DATA 11 ,00,00,00,3F,7F,3F, 15, 1F,3F, 1 

F , 1 5 , 3F , 7F , 3F , 00 , 00 , 00 , 00 , 00 , 80 , C0 , 80 , 00 

, E0 , FC , E0 , 00 , 80 , C0 ,80,00,00 
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i30 DATA i2, 00, 0i, 01,07,07, 37, 39, ÍD,0E,0 

7 . 03 . 01 . 00 . 00 . 00 . 00 . 00 . 00 . 80 . 80 . 80 . 80 , C0 
,C0, 60, 70, 80,88,44,02, 00, 00 

140 DATA Í3,00,10,38,3F,3B,3F,3B,3F,3B,1 

3.03.01 .01 .01 .00. 00 ,00, 10,38, F8,B8,F8,B8 
, F8 , B8 , 90 , 80 , 00 , 00 , 00 , 00 , 00 

150 DATA 14,00,00,00,00,00,00,01,01,03,0 

7 . 06 . 08 . 1 1 . 20 . 00 . 00 . 00 . 40 , C0 , F0 , F0 , F6 , CE 

, DC , 38 , 70 , E0 , C0 , 00 , 00 , 00 , 00 

160 DATA 15,00,00,01 ,03,01 ,00,07, 3F, 07,0 

0,01 ,03,01 ,00, 00, 00, 00,00, FC, FE, FC,A8,F8 

,FC,F8,A8,FC,FE,FC,00,00,00 

170 DATA 16,00,00,20, 10,08, 0'6, 07, 13, 0C,0 

£,07,03,01,00,00,00,00,00,00,00,00,00,00 

, C0 , FC , FE , 38 , B8 , C0 , E0 , 60 , 00 

180 DATA 17,00, 1C,32,4D,56,A8,DD,7E,2B ,7 

5,6A,A8,B6,49,67, lE, 10,7C,CE,23,95,2A,94 

,4A,41,A9,12,6C,FA,E1,4B,36 

190 SCREEN1,2,0:KEYOFF:UIDTH32:COLOR 15, 

i,l:LOCATE 3,10sPRINT "Aguarde a carga d 

os blocos":FOR 1=0 TO 17 s Aí="" :READ N:FO 

R J=0 TO 31:READ B% : A1D=AT>+CHR9i ( OAL ( 

B*)):NEXT J:SPRITE*(N)=A*:NEXT I 

200 BLOAD "JOGO":BLOAD "TELA":BLOAD "TRA 

J" 

210 FOR F=0 TO 128:0P0KE F,0:NEXT F:OPOK 
E 0,128:OPOKE 64 , 128 : VP0KE8 192 , 1 1 3 : OPOKE 
8193, 129: 0P0KE821 6,33: DEFUSR=&H9000:DEFU 
SR1=«HC350:DEFUSR2=«H156 

220 X=USR<0) :L0CATE 0,22:PRINT STRING%(3 

2, 196) ; :L0CATE 10,11:PRINT "TECLE ESPAeO 
// 

230 IF INKEYSJO" " THEN 230 ELSE X=USR<0 
):L0CATE 0,22:PRINT STR ING% < 32 , 196 ) ; : X=U 
SR1(0>+USR2(0> :GOTO 220 

Se você não possui um compilador, carregue o 
Monitor e digite M &H9600. A seguir, entre com os 
bytes da figura 6.3 ou digite o programa fonte em 
Assembty. de acordo com a sintaxe do seu compilador 
e. após terminar, salve-a com 

BSAOE "TELA" , «H9000 , «H902F 
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FIGURA 6.3 - Rotina foraata-tela ea Asseabls 


004D 


ORG 

URTURHtEQU 

09000H 

04OH 


9000 

210071 

LO 

HL.7100H 

9003 

9004 

AF 

XOR 

LOOPCz 

A 


9004 

E5 

PUSH 

HL 

fSALUA HL. 

9005 

56 

LO 

O . ( HL > 

fLE COOIGO INICIAL 
* fOA COLUNA. 

9006 

210018 

LO 

HL.6144 

F CALCULA ENOERECO 

9009 

0600 

LO 

B .0 

fOA UR AH. 

900B 

4F 

LO 

C.A 


900C 

09 

AOO 

HLrBC 


9000 

F5 

PUSH 

AF 


900E 

5F 

LO 

E.A 


900F 

9010 

AF 

XOR 

LOOPLi 

A 


9010 

F5 

PUSH 

AF 


9011 

7A 

LO 

A. O 


9012 

E607 

ANO 

7 

fREOUZ COOIOO 
lAO HOOULO 8. 

9014 

C843 

BIT 

0rE 

1 testa se a coluna 

9016 

2802 

JR 

Z.BIT0 

fE par. 

9018 

901A 

C608 

AOO 

BIT0S 

A. 8 

fSE for. SOHA 8 
fao coo. caractere. 

901A 

CO4O00 

CALL 

URTURM 

fescreue na tela. 

9010 

14 

INC 

O 

f INCREMENTA COOIGO. 

901E 

0E20 

LO 

C.32 

9020 

09 

AOO 

HL. BC 

fOESCE 1 LINHA. 

9021 

F1 

POP 

AF 

9022 

3C 

INC 

A 


9023 

FE18 

CP 

24 


9025 

20E9 

JR 

NZ.LOOPL 

F FECHA LOOP LINHAS. 

9027 

F1 

POP 

AF 

9028 

Ei 

POP 

HL 

fRESTAURA REGISTROS. 

9029 

23 

INC 

HL 

fPROxima coluna. 

902A 

3C 

INC 

A 

902B 

FE20 

CP 

32 


9020 

902F 

2005 

C9 

JR NZ.LOOPC 

RET 

0 mesmo deve ser 

F FECHA LOOP COLUNAS. 

feito com a figura 

vo 1 tando 

ao mon i tor . 

digite 

M &HC350 e entre os 

pelo mon 

ítor. ou compi le o 

programa fonte de a 

com a sintaxe do seu 
0 com 

compilador. Após terminar, g 


6.4 : 
dados 


BSAVE "JOGO" , «HC350 , &HCI357 
FIGURA 6.4 - Jogo ORPHEUS, ea Asseablg 


004A 

eo4D 

eosc 

0073 

00D5 

00D8 

013E 

0200 

0003 

0006 


0008 

0002 

A000 

C350 

C3S0 3ED1 
C352 21S41B 
C355 CD4D00 
C3S8 215818 
C3SB CD4D00 


ORG 

5 BLOCO isCONSTANTES 

RDORMs EQU 04AH 
04DH 
05CH 
073H 
0D5H 
0D8H 
13EH 
200H 
003H 
008H 
080H 
008H 
002H 
0A000H 


URTORMXEOU 
LOIROnsEOU 
URTPSGsEQU 
GTSTCK sEOU 
GTTRlGiEQU 
ROODPs EQU 
INORAMSEQU 
TCANS EQU 
LIINVs 

pausa: 

COMPUS 
TPINVs 
IPVR* 

F 

inícios 

LD A, 209 

LD HL,Ó99Ó 
CALL URTURM 
LO HL. 7000 
CALL URTVRM 


EQU 

EQU 

EQU 

EQU 

EQU 


BLOCO 2: INICIA JOGO 
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C3SE 215C1B 
C361 CD4D«e 
C364 213ÓCB 
C367 iieeiB 
C36A ei2BBe 
C36D CDSCBB 
C37« 3EB3 
C372 3249CA 
C375 2ieeOB 
C378 2262CA 
C37B CD92C9 
C37E AF 
C37F 3240CA 
C382 323ECA 
C385 CD08C9 

C388 

C388 21DECA 
C38B lieBlB 
C38E eii4BB 
C391 CDSCOe 
C394 3EA® 
C39Ó 322ECA 
C399 3E8B 
C39B 3220CA 
C39E 3ED1 
C3A0 323BCA 
C3A3 3232CA 
C3A6 3EB3 
C3A8 323BCA 
C3AB 2100B2 
C3AE 2260CA 
C3B1 C026CB 

C3B4 

C3B4 CD40C9 
C3B7 AF 
C3B8 3238CA 
C3BB 3242CA 
C3BE 3243CA 
C3C1 323SCA 
C3C4 3E1E 
C3CA D399 
C3C8 3Ei8 
C3CA 0399 
C3CC 3A49CA 
C3CF C62F 
C3D1 0398 

C303 

C303 3A3BCA 
C306 30 
C307 323BCA 
C30A A7 
C30B 2034 
C300 3E03 
C3L. 323BCA 
C3E2 3A37CA 
C3ES COO500 
C3E8 FE03 
C3EA 280B 
C3EC FE07 
C3EE 2814 
C3F0 FE01 
C3F2 FE05 
C3F4 C8 
C3F5 181A 
C3F7 

C3F7 3A2DCA 
C3FA FEEA 
C3FC 3013 
C3FE 3C 
C3FF 3220CA 
C402 1800 
C404 

C404 3A20CA 


LD HL r 7004 

CALL urtv;rh 
LD HLpMSTEL 
LO OE,ól44 
LD BC, 32 
CALL LOIRVM 
LO A, 3 
LD CHAVES), A 
LO HL , 0 
LD C PONTOS), HL 
CALL PLACAR 
XOR A 

LD <L1SAB),A 
LD (FASE), A 
CALL STFASE 

t BLOCO 3SINICIA NA'w E 

TNNAVES 


LD 

HL,ARPC 

LO 

DE, 69)2 

LO 

BC, 20 

CALL 

LDIRVM 

LD 

A, 1Ó0 

LO 

< YNAVE) ,A 

LD 

A, 128 

LD 

(XNAVE) , A 

LD 

A, 209 

LD 

CYTIRO) ,A 

LD 

<YTIR02> , A 

LD 

A,TCAN 

LO 

(CCAN) , A 

LD 

HL, 512 

LD 

CFTIRO) ,HL 

CALL 

INIBMB 


BLOCO 4: INICIA FASE 

INFASE: 


CALL 

INIINV 

XOR 

A 

LD 

(CONTOS) ,( 

LO 

(PSINC) , A 

LD 

(CCINV) , A 

LO 

(STATX) ,A 

LD 

A, 30 

OUT 

< 153) ,A 

LD 

A, 24 

OUT 

< 153) ,A 

LO 

A, (NAVES) 

ADO 

A, 47 

OUT 

( 152) , A 


? BLOCO 5SLOOP CENTRAL 

CENTRAL 


LD 

A, (CCAN) 

DEC 

A 

LD 

(CCAN) , A 

ANO 

A 

JR 

NZ, SEGUE 

LO 

A , TCAN 

LD 

(CCAN) , A 

LO 

A, (HOOE) 

CALL 

GTSTCK 

CP 

3 

JR 

Z,OIR 

CP 

7 

JR 

Z,ESQ 

CP 

1 

CP 

5 

RET 

Z 

JR 

SEGUE 

LD 

A, (XNAVE) 

CP 

234 

JR 

NC, SEGUE 

INC 

A 

LD 

(XNAVE) ,A 

JR 

SEGUE 

LO 

A, (XNAVE) 
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C407 

FE1« 

CP 

16 

CA^9 

3896 

JR 

C, SEGUE 

C40B 

30 

OEC 

A 

C4ec 

322DCA 

LO 

(XNAUE> ,A 

C40F 

i8«e 

JR 

SEGUE 

C411 


SEGUES 


C411 

3A37CA 

LO 

A, (HODE> 

C414 

CD12C5 

CALL 

TRIGGER 

C417 

FEFF 

CP 

255 

C419 

2048 

JR 

NZ, SEGUE2 

C41B 

3A30CA 

LO 

A, ( YTIRO) 

C41E 

FEDI 

CP 

209 

C420 

2018 

JR 

NZr TIR02 

C422 

21061B 

LO 

HLr691B 

C425 

3E10 

LO 

A, 16 

C427 

CD4DOO 

CALL 

URTVRM 

C42A 

3A2ECA 

LO 

Ar ( YNAUE) 

C42D 

0608 

SUB 

B 

C42F 

3230CA 

LO 

(YTIRO) rA 

C432 

3A20CA 

LO 

Ar < XNAUE) 

C435 

322FCA 

LO 

(XTIRO) r A 

C438 

1810 

JR 

STIRO 

C43A 


TIR02S 


C43A 

3A32CA 

LO 

Ar < YTIR02) 

C43D 

FEOl 

CP 

209 

C43F 

2022 

JR 

NZrSEGUE2 

C441 

210A1B 

LO 

HL r 6922 

C444 

3E10 

LO 

Ar 16 

C446 

C04000 

CALL 

URTURM 

C449 

3A2ECA 

LO 

Ar < YNAVE) 

C44C 

0608 

SUB 

B 

C44E 

3232CA 

LD 

< YTIR02) r A 

C4S1 

3A20CA 

LO 

Ar (XNAUE) 

C454 

3231CA 

LO 

(XTIR02) r A 

C457 


STIROs 


C457 

2122CB 

LO 

HLrSOTIRO 

C45A 

C084C9 

CALL 

STSND 

C4SD 

216400 

LO 

HLr lOO 

C4ó0 

2260CA 

LD 

(FTIRO) rHL 

CAA3 


SEGUE2I 


C463 

C054CS 

CALL 

IHPNAU 

C4Ó6 

C070C6 

CALL 

ESTRTM 

C469 

COC9C6 

CALL 

SABOT 

C46C 

3A3SCA 

LD 

Ar (STATX) 

C46F 

A7 

ANO 

A 

C47® 

C266C7 

JP 

NZrEXPLS 

C473 

3A30CA 

LD 

Ar (YTIRO) 

C47A 

FEOl 

CP 

209 

C47B 

2812 

JR 

ZrTIR0X2 

C47A 

3234CA 

LO 

(YTR ) r A 

C47D 

3A2FCA 

LD 

Ar (XTIRO) 

C48e 

3233CA 

LD 

(XTR ) r A 

C483 

C020C5 

CALL 

TIROS 

C48Á 

3A34CA 

LO 

Ar (YTR) 

C489 

3230CA 

LD 

(YTIRO) rA 

C48C 


TIROX2S 


C48C 

3A32CA 

LD 

Ar (YTIR02) 

C48F 

FEOl 

CP 

209 

C491 

2812 

JR 

Zr SEGUE3 

C493 

3234CA 

LD 

(YTR ) r A 

C496 

3A31CA 

LD 

Ar (XTIR02) 

C499 

3233CA 

LD 

(XTR ) r A 

C49C 

C032C5 

CALL 

TIR0S2 

C49F 

3A34CA 

LD 

A, (YTR) 

C4A2 

3232CA 

LO 

( YTIR02) r A 

C4A5 


SEGUE3S 


C4A5 

A/ 

AND 

A 

C4AÓ 

A7 

ANO 

A 

C4A7 

3A43CA 

LO 

Ar (CCINU) 

C4AA 

3C 

INC 

A 

C4AB 

3243CA 

LO 

(CCINU) r A 

C4AE 

FE02 

CP 

TPINV 

C4BB 

200A 

JR 

NZrSEGUE4 

C4B2 

AF 

XOR 

A 

C4B3 

3243CA 

LO 

(CCINU) r A 

C4BÓ 

COAOC5 

CALL 

INVSR 


120 



C4BV 

C008C7 

CALL 

ATBOHB 

C4BC 


8EGUE4: 


C4BC 

CD4SC8 

CALL 

TESTCM 

C4BF 

2A60CA 

LD 

HLr <FTIRO> 

C4C2 

3E02 

LD 

A, 2 

C4C4 

BC 

CP 

H 

C4CS 

2817 

JR 

Z„ SEGUES 

C4C7 

23 

INC 

HL 

C4C8 

23 

INC 

HL 

C4C9 

23 

INC 

KL 

C4CA 

23 

INC 

HL 

C4CB 

2260CA 

LD 

<FTIRO> ,HL 

C4CE 

5D 

LD 

e.l 

C4CF 

3EOO 

LD 

A,0 

C4D1 

ES 

PUSH 

HL 

C4D2 

CD930O 

CALL 

URTPSG 

C4DS 

Ei 

POP 

HL 

C4D6 

SC 

LD 

e,h 

C4D7 

3E01 

LD 

A, 1 

C409 

CD9300 

CALL 

URTPSG 

C40C 

1807 

JR 

TSFASE 

C4DE 


SEGUES: 


C40E 

1E00 

LD 

E,0 

C4E0 

3E08 

LD 

A, 8 

C4E2 

CO9300 

CALL 

URTPSG 

C4E5 


TSFASEs 


C4E5 

3A38CA 

LD 

A, <CONTDS> 

C4E8 

FE08 

CP 

LIINO 

C4EA 

2803 

JR 

ZrTRFASE 

C4EC 

C3D3C3 

JP 

CENTRAL 

C4EF 


TRFASEi 


C4EF 

CD08C9 

CALL 

STFASE 

C4F2 

C3B4C3 

JP 

INFASE 


9 BLOCO ÀSALEATORIZADOR 

C4F5 RANOOMS 


C4F5 

ES 


PUSH 

HL 

C4FÓ 

2A52CA 


LD 

HLr (SEMT) 

C4F9 

ED5BS0CA 


LD 

DE, (FIMSEM) 

C4FD 

A7 


AND 

A 

C4FE 

EDS2 


SBC 

HL, DE 

CS00 

200Ó 


JR 

NZ,RAND2 

CS02 

2A4ECA 


LD 

HL, (INISEH> 

CS0S 

22S2CA 


LD 

<SEMT) ,HL 

CS08 


RAND2: 



CS08 

2AS2CA 


LD 

HL, <SEMT) 

C50B 

23 


INC 

HL 

CS0C 

22S2CA 


LD 

<SEMT> ,HL 

C50F 

7E 


LD 

A, (HL> 

CS10 

El 


POP 

HL 

CS 11 

C9 


RET 




r 

BLOCO 7SDISPARA 

CS12 


TRIGGER 


CS12 

CDD800 


CALL 

GTTRIG 

C51S 

A7 


AND 

A 

CSló 

2810 


JR 

Z,NAOPRE 

CS18 

3A3ÓCA 


LD 

A, <DBCUNC> 

C51B 

A7 


AND 

A 

C51C 

2802 


JR 

Z,LIURE 

CSIE 

AF 


XOR 

A 

CSIF 

C9 


RET 


C520 


LIUREt 



CS20 

3E01 


LD 

A, 1 

CS22 

3236CA 


LD 

(DBOUNO , A 

C52S 

3EFF 


LD 

A,2S5 

CS27 

C9 


RET 


CS28 


NAOPREt 


CS28 

AF 


XOR 

A 

C529 

3236CA 


LO 

CDB OUNO , A 

CS2C 

C9 


RET 


CS2D 


TIROS* 



C52D 

21041B 


LD 

HL, 6916 

CS30 

1803 


JR 

TIR0S3 

CS32 


TIR0S2* 



CS32 

21081B 


LD 

HL, 6920 

CS3S 


TIROS3: 



CS35 

3A34CA 


LD 

A, < YTR > 


1E1 



J 


CS38 

3D 


DEC 

A 

CS39 

FE08 


CP 

8 

C53B 

380E 


JR 

CrFIMTR 

CS3D 

3234CA 


LD 

< YTR ) ,A 

C54® 

C04Dee 


CALL 

URTURM 

C543 

3A33CA 


LD 

A, (XTR > 

CS4Ó 

23 


INC 

HL 

C547 

cD4oee 


CALL 

URTURM 

CS4A 

C9 


RET 


C54B 


FIMTRs 



CS4B 

3ED1 


LD 

A, 209 

CS4D 

3234CA 


LD 

< YTR ) ,A 

esse 

cD4oee 


CALL 

URTURM 

C553 

C9 


RET 




? 

BLOCO 8: IMPRIME NAUE 

C5S4 


IMPNAV/s 


C554 

3A20CA 


LD 

A, (XNAOE> 

C5S7 

2ieilB 


LD 

HLr6913 

C5SA 

CD4oee 


CALL 

URTORM 

CS5D 

2i0DlB 


LD 

HLr 692S 

esóe 

CO4D00 


CALL 

URTORM 

CS63 

211118 


LD 

HL r 6929 

CS66 

CD4D00 


CALL 

URTORM 

CSÓ9 

3A2ECA 


LD 

A» C YNAOE) 

C5ÓC 

210018 


LD 

HL. 6912 

C56F 

CO4D00 


CALL 

URTVRM 

CS72 

210C1B 


LD 

HL, 6924 

C573 

CO4O00 


CALL 

URTORM 

C578 

211018 


LD 

HL, 6928 

CS7B 

C60E 


ADD 

A, 14 

C57D 

CD4D00 


CALL 

URTORM 

csee 

3A45CA 


LD 

A, <PFOGO) 

CS83 

3C 


INC 

A 

CS84 

324SCA 


LD 

<PFOGO> ,A 

C587 

FE14 


CP 

20 

C58° 

C0 


RET 

NZ 

C58A 

AF 


XOR 

A 

CS8B 

3245CA 


LD 

<PFOGO> ,A 

C58E 

211218 


LD 

HL, 6930 

CS91 

3A4ÓCA 


LD 

A, (CFOGO) 

C594 

3C 


INC 

A 

CS9S 

324áCA 


LD 

(CFOGO) ,A 

C598 

E601 


AND 

1 

C59A 

3C 


INC 

A 

CS9B 

87 


ADD 

A, A 

C59C 

87 


ADD 

A, A 

CS90 

CD4D00 


CALL 

URTORM 

CSAe 

210F1B 


LD 

HL, 6927 

C3A3 

CD4A00 


CALL 

RDORM 

CSA6 

3C 


INC 

A 

C5A7 

EÁ9F 


AND 

15 

CSA9 

CO4D00 


CALL 

URTORM 

CSAC 

C9 






1 

BLOCO ^sINOASORES 

CSAD 


INUSR : 



CSAO 

AF 


XOR 

A 

CSAE 


LOOPINt 


USAE 

323CCA 


LD 

(LOPINO) ,A 

CSBl 

2168CA 


LD 

HL.ARRAY 

CSB4 

0600 


LD 

8,0 

eSBó 

87 


ADD 

A, A 

C5B7 

87 


ADD 

A, A 

CSB8 

4F 


LD 

C,A 

CSB9 

09 


ADD 

HL, BC 

eSBA 

225ACA 


LD 

(PYINV) ,HL 

C5BD 

7E 


LD 

A, (HL> 

eSBE 

FEDI 


CP 

209 

csce 

286S 


JR 

2,PROXIN 

CSC2 

23 


INC 

HL 

C5C3 

22SeCA 


LD 

(PXINV) ,HL 

CSCó 

2188CA 


LD 

HL, lAPV 

CSC9 

3A3CCA 


LD 

A, (LOPINO) 

CSCC 

87 


ADD 

A , A 

C5CD 

0600 


LD 

8,0 

C5CF 

4F 


LD 

C,A 

CSD0 

09 


ADD 

HL, BC 


1SS 



) 


CSDi 

223CCA 

LD 

<APV) ,HL 

CSD4 

SE 

LD 

Er (HL> 

CSOS 

23 

INC 

HL 

CSDó 

Só 

LD 

Dr (HL> 

CSD7 

EB 

EX 

DErHL 

C5D0 

7E 

LD 

A r < HL > 

C5D9 

FEFF 

CP 

2S5 

C50B 

2878 

JR 

ZrFIMINO 

CSOO 

F5 

PUSH 

AF 

C50E 

3A44CA 

LD 

Ar (FLINO 

CSEi 

A7 

AND 

A 

CSE2 

2881 

JR 

ZrNTINC 

CSE4 

23 

INC 

HL 

C5E5 


NTINC* 


CSE5 

EB 

EX 

DErHL 

CSE6 

F1 

POP 

AF 

CSE7 

323DCA 

LD 

<DIRI > r A 

C5EA 

2ASCCA 

LD 

K-.r (APV) 

C5ED 

73 

LD 

<Hw ) rE 

C5EE 

23 

INC 

HL 

C5EF 

72 

LD 

<HL) rD 

C3Fe 

21CCCA 

LD 

HLr lARX 

C5F3 

3A3DCA 

LD 

Ar (DIRI > 

C5FA 

4F 

LD 

Cr A 

CSF7 

esee 

LD 

B r 8 

CSF9 

89 

ADD 

HLrBC 

C5FA 

46 

LD 

B r ( HL > 

C5FB 

2AS8CA 

LD 

HLr <PXINO> 

C5FE 

7E 

LD 

A r ( HL ) 

CSFF 

88 

ADD 

ArB 

Cóee 

77 

LD 

<HL> r A 

c^ei 

21DSCA 

LD 

HLr lARY 

C6«4 

3A3DCA 

LD 

Ar <DIRI > 

Cóe7 

4F 

LD 

CrA 

C608 

8688 

LD 

Br8 

C^»0A 

89 

ADD 

HLrBC 

CÓ0B 

46 

LD 

B r c HL > 

csec 

2ASACA 

LD 

HLr <PYINV> 

C6ÔF 

7E 

LD 

A, (HL> 

Cóie 

88 

ADD 

ArB 

Cóii 

77 

LD 

< HL > r A 

CÓ12 

2AS8CA 

LD 

HL. (PXINU) 

C615 

23 

INC 

HL 

C616 

3A30CA 

LD 

Ar <DIRI> 

C619 

4F 

LD 

CrA 

C61A 

A7 

AND 

A 

C61B 

288S 

JR 

Zr*^7 

CólD 

C688 

ADD 

Ar0 

CólF 

87 

ADD 

Ar A 

C620 

87 

ADD 

Ar A 

C621 

77 

LD 

( HL > r A 

C622 

79 

LD 

ArC 

C623 

A7 

AND 

A 

C624 

C498C7 

CALL 

NZ.STBOMB 

CÓ27 


PROXINt 


C627 

3A3CCA 

LD 

Ar (LOPINO) 

CÓ2A 

3C 

INC 

A 

CÓ2B 

FE88 

CP 

LIINO 

CÓ20 

C2AECS 

JP 

NZrLOOPIN 

C63e 

AF 

XOR 

A 

CÁ3i 

3244CA 

LD 

CFLINO rA 

C634 

3A42CA 

LD 

Ar CPSINO 

C637 

3C 

INC 

A 

CÓ38 

3242CA 

LD 

CPSINO r A 

C63B 

FE88 

CP 

COMPU 

CÁ3D 

2889 

JR 

NZrDSPINV 

CÓ3F 

3E81 

LD 

Arl 

Có4i 

3244CA 

LD 

(FLINC) r A 

C644 

AF 

XOR 

A 

C645 

3242CA 

LD 

CPSINO r A 

C648 


DSPINOs 


CÓ48 

2168CA 

LD 

HLr ARRAY 

CÓ4B 

Í1141B 

LD 

DE .6932 

C64E 

812888 

LD 

BC.32 

CóSl 

CDSC88 

CALL 

LDIRVM 

C654 

C9 

RET 
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CÓSS 

C6S5 

C6S8 

CÓ58 

C65C 

CÀSO 

CÓ60 

Có61 

Có62 

CÀÓ3 

Cóóó 

C6A9 

CÁ6A 

C6Ó0 

C66E 

C66F 

Có7e 

C678 

C673 

CA73 

C674 

C675 

C676 

C678 

C678 

C67B 

Có78 

CA7C 

C67F 

CÓ88 

C681 

C683 

CÓ8Ó 

C687 

CÁ8C 

Cá8F 

C698 

C693 

CA94 

C695 

Có98 

C698 

C69E 

CóAl 

CÓA4 

C6A4 

CAA7 

CÁA9 

CÀAA 

CÂA8 

C6AC 

C6AE 

C6B1 

CÀB2 

C6B2 

C6B4 

CÓBS 

CÁB8 

CÓB9 

CÁB9 

CóBA 

CÓBD 

C6BE 

C6C1 

C6C2 

C6C4 

CÓCS 

C6C8 

CÓC9 

CAC9 

CÓCC 

CàCD 

CóOe 

CÓ02 


> 


FIMINVs 


2AS6CA 


LD 

HLr < IVFASE) 

112880 


LD 

DE *32 

19 


AOD 

ML* DE 

EB 


EX 

DE* HL 

2A5CCA 


LO 

HL* CAPV> 

73 


LD 

( HL > * E 

23 


INC 

HL 

72 


LD 

<HL) ,D 

3A48CA 


LD 

A, < VIFASE) 

2A5ACA 


LD 

HL* (PYINV) 

77 


LD 

(HL) *A 

3A41CA 


LD 

A* (XIFASE) 

23 


INC 

HL 

77 


LD 

(HL) *A 

C9 


RET 





BLOCO 188MOOE ESTRELAS 


ESTRTM 

: 


218888 

TEMP08 

LD 

HL*PAUSA 

2B 


DEC 

HL 

7C 


LD 

A*H 

BS 


OR 

L 

28FB 

ESTRE* 

JR 

N2* TEMPO 

3A39CA 

LOPEVt 

LD 

A, (EUENTO) 

3D 


DEC 

A 

3239CA 


LD 

(EUENTO) * A 

A7 


AND 

A 

C8 


RET 

NZ 

3E8A 


LO 

A* 10 

3239CA 


LD 

(EUENTO) *A 

214888 


LD 

HL *64 

CDB2CÓ 


CALL 

ROT 

3A3ACA 


LD 

A* (TOGGLE) 

2F 


CPL 


323ACA 


LD 

(TOGGLE) *A 

A7 


AND 

A 

C8 


RET 

Z 

218888 


LD 

HL*128 

C062CÓ 


CALL 

ROT 

218Ò1B 


LD 

HL*Ó918 

CDA4CÓ 


CALL 

APGFM 

218A1B 

APGFH: 

LD 

HL *6922 

CD4A88 


CALL 

RDURM 

FE44 


CP 

68 

C8 


RET 

NZ 

2B 


DEC 

HL 

2B 


DEC 

HL 

3ED1 


LO 

A *289 

CD4D88 


CALL 

URTURM 

C9 

ROTs 

RET 


863F 


LD 

B *Ó3 

2B 


DEC 

HL 

CD4A88 


CALL 

RDURM 

4F 


LD 

C*A 


LOPROT 

z 


2B 


DEC 

HL 

C04A88 


CALL 

RDURM 

23 


INC 

HL 

CD4D88 


CALL 

URTURM 

2B 


DEC 

ML 

18F5 


OJNZ 

LOPROT 

79 


LD 

A*C 

CD4D88 


CALL 

URTURM 

C9 


RET 



t 

BLOCO 11 sSABOTAOORES 


SABOTs 



3A4BCA 


LD 

A* (CSAB ) 

3C 


INC 

A 

324BCA 


LD 

(CSAB ) * A 

FE9A 


CP 

ISO 

C8 


RET 

NZ 


12 ^ 



CÓ03 

AF 

XOR 

CÓ04 

324BCA 

LO 

C607 

3A4DCA 

LD 

C6DA 

A7 

AND 

C6JB 

C8 

RET 

CSDC 

CÓDD 

AF 

XOR 

LOPSAB: 

C6DD 

324CCA 

LD 

C6E0 

0600 

LD 

C6E2 

4F 

LD 

CÀE3 

21B9CA 

LO 

C6EÓ 

09 

ADD 

CAE7 

09 

ADO 

C6EB 

09 

ADD 

CAE9 

09 

ADD 

CóEA 

7E 

LD 

CÓEB 

FEFF 

CP 

CÓED 

2834 

JR 

CAEF 

CDF5C4 

CALL 

C6F2 

E60F 

AND 

C6F4 

284B 

JR 

CóFó 

7E 

LD 

C6F7 

47 

LD 

C6F8 

3A2DCA 

LD 

C^FB 

B8 

CP 

C6FC 

48 

LD 

C6FD 

380C 

JR 

CAFF 

3A4CCA 

LO 

C702 

CÓ02 

ADD 

C704 

47 

LD 

C705 

79 

LD 

C706 

3C 

INC 

C707 

10FD 

DJNZ 

C709 

C70B 

180A 

JR 

SES0 8 

C70B 

3A4CCA 

LD 

C70E 

C602 

ADO 

C710 

47 

LO 

C711 

79 

LD 

C712 

3D 

. DEC 

C713 

C715 

10FD 

DJNZ 

SSEGUE 8 

C715 

77 

LD 

C716 

23 

INC 

C717 

7E 

LD 

C718 

FE20 

CP 

C71A 

2002 

JR 

C71C 

3Ó1C 

LD 

C71E 

46 

LO 

C71F 

3E34 

LD 

C721 

90 

SUB 

C722 

C723 

77 

LO 

PSAb 8 

C723 

3A4CCA 

LD 

C726 

3C 

INC 

C727 

4F 

LD 

C728 

3A4DCA 

LD 

C72B 

47 

LD 

C72C 

79 

LO 

C72D 

B8 

CP 

C72E 

38AD 

JR 

C730 

2188CA 

LD 

C733 

11S41B 

LD 

C736 

CB20 

SLA 

C730 

CB20 

SLA 

C73A 

48 

LD 

C73B 

0600 

LD 

C73D 

CDSC00 

CALL 

C740 

C741 

C9 

RET 

ATAQ8 

C741 

23 

INC 

C742 

3620 

LO 

C744 

OBAA 

IN 

C746 

C748 

0632 

LD 

BIP 8 

C74B 

CBBF 

RES 


} 


A 

<CSAB > ,A 
A, CLISAB) 

A 

Z 

A 

<NSAB ) , A 
B rC 
C,A 

HL,ARSAB>1 
HLrBC 
HL. BC 
HL. BC 
HL. BC 

A. (HL) 

255 

Z.PSAB 

RANDOM 

15 

Z.ATAQ 

A. <HL> 

B .A 

A. (XNA(;E> 

B 

C.B 

C.SESQ 
A. (NSAB > 

A. 2 

B. A 
A.C 
A 

S-1 

SSEGUE 

A, (NSAB) 

A. 2 

B. A 
A.C 
A 

( HL ) . A 
HL 

A. (HL) 

32 

NZ.*+4 

(HL) .28 

B . (HL) 

A. 52 

B 

(HL) .A 

A. (NSAB ) 

A 

C. A 

A. (LISAB ) 

B. A 
A.C 
B 

C. LOPSAB 
HL. ARSAB 
DE. 6996 
B 

S 

C.B 
B .d 

LDIRVH 


HL 

(HL) .32 
A. ( 170) 
B .50 

7. A 
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) 


C74A 

D3AA 

OUT 

(i78) ,A 

C74C 

CBFF 

SET 

7, A 

C74E 

D3AA 

OUT 

( i70),A 

C75« 

Í0F6 

DJNZ 

BIP 

C7S2 

2B 

DEC 

HL 

C7S3 

46 

LD 

B , < HL > 

C7S4 

3A2DCA 

LD 

A, (XNAUE> 

C7S7 

C688 

ADO 

A»8 

C759 

98 

SUB 

B 

C75A 

FEi8 

CP 

i6 

C73C 

38C5 

JR 

NC.PSAB 

C75E 

3E8i 

LD 

A,i 

C760 

323SCA 

LD 

<STATX) ,A 

C763 

18BE 

JR 

PSAB 

C76S 

C9 

RET 




P BLOCO Í2SEXPLOSAO 

C766 


EXPL3S 


C766 

2Í821B 

LD 

HL.69Í4 

C769 

3E44 

LD 

Ar 68 

C76B 

CD4D88 

CALL 

URTVRH 

C76E 

3E8A 

LD 

Ar i8 

C77® 

23 

TNC 

HL 

C771 

CD4oee 

LALL 

URTVRH 

C774 

212BCB 

LD 

HLrSDEXPL 

C777 

CD84C9 

CALL 

STSNO 

C77A 

2168EA 

LD 

HL r 68888 

C77D 


TEXPL* 


C77D 

2B 

DEC 

HL 

C77E 

2B 

DEC 

HL 

C77F 

23 

INC 

HL 

C780 

7C 

LD 

ArH 

C781 

B5 

OR 

L 

C782 

28F9 

JR 

NZr TEXPL 

C784 

3A49CA 

LD 

Ar (NAVES) 

C787 

30 

DEC 

A 

C788 

3249CA 

LD 

(NAVES) r A 

C78B 

A7 

AND 

A 

C78C 

C8 

RET 

Z 

C78D 

C388C3 

JP 

INNAVE 



P BLOCO Í3SSETA BAMBAS 

C79® 


STBOMB 8 


C790 

CDFSC4 

CALL 

RANDOH 

C793 

EÓÍF 

AND 

3i 

C795 

A7 

ANO 

A 

C796 

C8 

RET 

NZ 

C797 

CDFSC4 

CALL 

RANDOH 

C79A 

E687 

AND 

7 

C79C 

4F 

LD 

CrA 

C79D 

3A48CA 

LD 

Ar (LIOOHB ) 

C7AC 

47 

LD 

BrA 

C7A1 

79 

LD 

ArC 

C7A2 

B8 

CP 

B 

C7A3 

oe 

RET 

NC 

C7A4 

3247CA 

LD 

(NBOHB ) r A 

C7A7 

87 

ADD 

A r A 

C7A8 

87 

ADD 

Ar A 

C7A9 

2198CA 

LD 

HLr lABOHB 

C7AC 

8688 

LD 

B r 8 

C7AE 

4F 

LD 

CrA 

C7AF 

89 

ADD 

HLrBC 

C7BB 

7E 

LD 

Ar (HL) 

C7Bi 

FEDI 

CP 

289 

C7B3 

C8 

RET 

NZ 

C7B4 

E5 

PUSH 

HL 

C7BS 

2ASACA 

LD 

HLr (PYINV) 

C7B8 

7E 

LD 

Ar (HL) 

C7B9 

Ei 

POP 

HL 

C7BA 

77 

LD 

( HL ) r A 

C7BB 

23 

INC 

HL 

C7BC 

ES 

PUSH 

HL 

C7BD 

2AS8CA 

LD 

HLr (PXINV) 

C7C8 

7E 

LD 

Ar (HL) 

C7C1 

Ei 

POP 

HL 

C7C2 

77 

LD 

(HL) rA 

C7C3 

2ÍCCCA 

LD 

HLr lARX 

C7C6 

3A3DCA 

LD 

Ar (DIRI) 
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C7C9 

4F 

LD 

C, A 

C7CA 

09 

ADO 

HL. BC 

C7CB 

7E 

LD 

A. (HL> 

C7CC 

F5 

PUSH 

AF 

C7CD 

21C4CA 

LD 

HL. lADB 

C7D0 

3A47CA 

LD 

A. (NBOMB ) 

C703 

4F 

LD 

C.A 

C7D4 

09 

ADO 

HL. BC 

C7D5 

F1 

POP 

AF 

C7D6 

77 

LD 

< HL ) . A 

C7D7 

C9 

RET 





C7D0 


ATBOMB3 


C7D8 

AF 

XOR 

A 

C7D9 


LPBOMBs 


C7D9 

3247CA 

LO 

(NBOMB > .A 

C7DC 

87 

ADD 

A. A 

C7DD 

87 

ADO 

A. A 

C7DE 

0600 

LD 

B .0 

C7E0 

4F 

LD 

C.A 

C7E1 

2198CA 

LO 

HL. lABOMB 

C7E4 

09 

ADD 

HL. BC 

C7E5 

7E 

LD 

A. <HL> 

C7E6 

FEDI 

CP 

209 

C7E8 

281C 

JR 

Z. PRBOMB 

C7EA 

3C 

INC 

A 

C7EB 

FEAA 

CP 

170 

C7ED 

2826 

JR 

Z.FIMBMB 

C7EF 

77 

LD 

< HL ) . A 

C7F0 

23 

INC 

HL 

C7FI 

E602 

AND 

2 

C7F3 

A7 

ANO 

A 

C7F4 

2010 

JR 

NZ. PRBOMB 

C7F6 

ES 

PUSH 

HL 

C7F7 

21C4CA 

LD 

HL. JAOB 

C7FA 

3A47CA 

LD 

A. (NBOMB > 

C7FD 

4F 

LD 

C.A 

C7FE 

0600 

LD 

B .0 

C8e0 

09 

ADO 

HL. BC 

C801 

46 

LD 

B . (HL> 

C802 

Ei 

POP 

HL 

C803 

7E 

LD 

A. (HL) 

C804 

80 

ADD 

A. 8 

C805 

77 

LD 

(HL> .A 

C80Ó 


PRBOMB s 


C806 

3A47CA 

LD 

A. (NBOMB > 

C809 

3C 

INC 

A 

C80A 

4F 

LD 

C.A 

C80B 

3A48CA 

LD 

A. (LIBOMB > 

C80E 

47 

LD 

B.A 

C80F 

79 

LD 

A.C 

C810 

B8 

CP 

B 

C8il 

20C6 

JR 

NZ.LPBOMB 

CB13 

1804 

JR 

IMPBMB 

C815 


FIHBHB8 


C81S 

36D1 

LD 

(HL) .209 

C8i7 

18ED 

JR 

PRBOMB 

C819 


IMPBMB 8 


CB19 

2198CA 

LO 

HL. lABOMB 

C81C 

11341B 

LD 

DE. 6964 

C81F 

012000 

LD 

BC. 32 

C822 

CD5C00 

CALL 

LDIRUM 

C825 

C9 

RET 




9 BLOCO ISSINICIA BOMBAS 

C826 


INIBMB8 


C826 

AF 

XOR 

A 

C827 


LPINIB8 


C827 

3247CA 

LD 

(NBOMB). A 

C82A 

2198CA 

LD 

HL. lABOMB 

C82D 

87 

ADD 

A. A 

C82E 

87 

ADD 

A. A 

C82F 

0600 

LD 

B .0 

C831 

4F 

LD 

C.A 

C832 

09 

ADD 

HL. BC 

C833 

3601 

LD 

(HL) .209 

C835 

23 

INC 

HL 


1S7 



C83Ó 23 
C837 3614 
C839 23 
C83A 360F 
C83C 3A47CA 
C83F 3C 
C849 FEA8 
C842 20E3 
C844 C9 

C845 

C84S CD3E01 
C848 CB6F 
C84A C8 
C84B 3A30CA 
C84E FEDI 
C8S0 281D 
C852 3234CA 
C8S5 3A2FCA 
C8S8 3233CA 
C8SB CDE0C8 
C85E 3230CA 
C861 3A4ACA 
C864 A7 
C86S 2808 
C867 21061B 
C86A 3E44 
C86C CD4D00 
C86F 

C86F 3A32CA 
CB72 FEDI 
C874 281D 
C876 3234CA 
C879 3A31CA 
C87C 3233CA 
C87F CDE0C8 
C882 3232CA 
CBBZ 3A4ACA 
C888 A7 
C889 2808 
C88B 210A1B 
C88E 3E44 
C890 CD4D00 
C893 

C893 2198CA 
C896 22SECA 
C899 COA6C8 
C89C 2168CA 
C89F 225ECA 
C8A2 CDA6C8 
C8AS C9 
C8A6 
C8A6 AF 
C8A7 

C8A7 3247CA 
C8AA 87 
C8AB 87 
C8AC 0600 
C8AE 4F 
C8AF 2A5ECA 
C8B2 09 
C8B3 7E 
C8B4 FEDI 
C8B6 281F 
CBB8 47 
C8B9 3A2ECA 
C8BC 90 
C8BD C608 
C8BF FE0A 
C8C1 3014 
C8C3 23 
C8C4 46 
CaCS 3A2DCA 
C8C8 90 
C8C9 C608 
C8CB FE10 



INC 

HL 


LD 

<HL) ,20 


INC 

HL 


LD 

<HL> , 15 


LD 

A, <NBOMB > 


INC 

A 


CP 

8 


JR 

RET 

NZ,LPINIB 

; 

BLOCO 16STESTA 

TESTCH* 


CALL 

RDUDP 


BIT 

5, A 


RET 

Z 


LD 

A, < YTIRO) 


CP 

209 


JR 

Z.CPTR2 


LD 

< YTR ) ,A 


LD 

A, (XTIRO) 


LD 

(XTR ) , A 


CALL 

CPTIRO 


LD 

< YTIRO) ,A 


LD 

A, <FLAC> 


ANO 

A 


JR 

ZrCPTR2 


LD 

HL, 6918 


LD 

A, 68 


CALL 

URTURM 

CPTR2S 


LD 

A, < YTIR02) 


CP 

209 


JR 

Z,CPCOM 


LD 

< YTR > ,A 


LD 

A, (XTIR02) 


LD 

(XTR ) , A 


CALL 

CPTIRO 


LD 

(YTIR02) ,A 


LD 

A, (FLAO 


AND 

A 


JR 

2,CPC0M 


LD 

HL, 6922 


LD 

A, 68 


CALL 

URTURM 

CPCOMs 


LD 

HL,IABOMB 


LD 

(PTABLE) ,HL 


CALL 

CPBHB 


LD 

HL, ARRAY 


LD 

(PTABLE) ,HL 


CALL 

kET 

CPBMB 

CPBMB s 


XOR 

A 

LCBOMB 




LD 

(NBOMB ) , A 


'^DD 

A, A 


ADD 

A, A 


LD 

B ,0 


LD 

C,A 


LD 

HL, (PTABLE) 


ADD 

HL, BC 


LD 

A, (HL) 


CP 

209 


JR 

Z.CPRBMB 


LD 

B ,A 


LD 

A, ( YNAUE) 


SUB 

B 


ADD 

A, 8 


CP 

10 


JR 

NC,CPRBMB 


INC 

HL 


LD 

B , (HL) 


LD 

A, (XNAVE) 


SUB 

B 


ADD 

A, 8 


CP 

16 
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> 


C8CD 

3008 

CBCF 

2B 

C800 

3óDi 

C8D2 

3E01 

C804 

323SCA 

C8D7 

C8D7 

3A47CA 

C8DA 

3C 

C8DB 

FE08 

C8DD 

20C8 

C80F 

C9 

C8E0 

C8E0 

AF 

C8E1 

324ACA 

C8E4 

C8E4 

323CCA 

C8E7 

87 

C3E8 

87 

C8E9 

0600 

C8EB 

4F 

CGCC 

2168CA 

C8EF 

09 

C8F0 

7E 

C8F1 

FEDI 

C8F3 

2822 

C8FS 

47 

C8F6 

3A34CA 

C8F9 

90 

C8FA 

C608 

C8FC 

FE10 

C8FE 

3017 

C900 

23 

C901 

46 

C902 

3A33CA 

C905 

9t 

C906 

C608 

C908 

FE10 

C90A 

300B 

C90C 

2B 

C90D 

36D1 

C90F 

3E01 

C911 

324ACA 

C914 

C02AC9 

C917 

C917 

3A3CCA 

C91A 

3C 

C91B 

FE08 

C91D 

20C5 

C91F 

3A4ACA 

C922 

A7 

C923 

3A34CA 

C92Ó 

C8 

C927 

3ED1 

C929 

C9 

C92A 

C92A 

3A38CA 

C92D 

3C 

C92E 

3238CA 

C931 

2A62CA 

C934 

EDSB66CA 

C938 

IS 

C939 

2262CA 

C93C 

ED5B64CA 

C940 

A7 

C941 

ED52 

C943 

3804 

C945 

19 

C94A 

2264CA 

C949 

C949 

CD92C9 

C94C 

C9 


JR 

NC,CPRBHfi 

DEC 

HL 

LD 

<HL) r209 

LD 

A, 1 

LD 

(STATX) r A 

CPRBMB: 

LD 

Ar (NBOMB > 

INC 

A 

CP 

8 

JR 

NZ.LCBOMB 

RET 

CPTIROs 

XOR 

A 

LD 

<FLAC> ,A 

LPCPINS 

LD 

(LOPINV) r A 

ADD 

A • N 

ADD 

Ar A 

LD 

B r0 

LD 

Cr A 

LD 

HLr ARRAY 

ADD 

HLrBC 

LD 

Ar <HL> 

CP 

209 

JR 

ZrCPPIN 

LD 

BrA 

LD 

Ar (YTR > 

SUB 

B 

ADD 

Ar8 

CP 

16 

JR 

NCrCPPIN 

INC 

ML 

LD 

B r (HL> 

LD 

Ar <XTR ) 

SUB 

B 

ADD 

Ar8 

CP 

16 

JR 

NCrCPPIN 

DEC 

HL 

LD 

(HL) r209 

LD 

Ar 1 

LD 

(FLAC) r A 

CALL 

ACERT 

CPPINS 

LD 

Ar (LOPINU) 

INC 

A 

CP 

8 

JR 

NZrLPCP IN 

LD 

Ar \FLAC) 

AND 

A 

LD 

Ar (YTR ) 

RET 

Z 

LD 

A, 209 

RET 

ACERT: 

LD 

Ar (CONTDS) 

INC 

A 

LD 

(CONTDS) r A 

LD 

HLr ( pontos; 

LD 

DEr ( ptfase: 

ADD 

HLr DE 

LD 

(PONTOS) rHI 

LD 

DEr (RECORD 

AND 

A 

SBC 

HLr DE 

JR 

Cr NAOREC 

ADD 

HLr DE 

LD 

(RECORD) rHI 

NAOREC: 


CALL 

PLACAR 

RET 


C9AD 
C94D AF 
C94E 

C94E 323CCA 


7 BLOCO Í7SIN1CIA INVASORES 

INIINVS 

XOR A 

LOPINI s 

LD <LOPINV),A 
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C951 

87 


AOO 

A, A 

C952 

2168CA 


LO 

HL,ARRAY 

C9S5 



LO 

B r0 

C9S7 

AF 


LO 

CrA 

C938 

B9 


AOO 

HL, BC 

C959 

09 


AOO 

HL, BC 

C95A 

3A40CA 


LO 

A, (YIFASE) 

C95D 

77 


LO 

(HL> ,A 

C9SE 

23 


INC 

HL 

C93F 

3A41CA 


LO 

A, CXIFASE) 

C9Ó2 

77 


LO 

<HL> ,A 

C963 

23 


INC 

HL 

C964 

23 


INC 

HL 

C96S 

3A3FCA 


LD 

A, (CFASE) 

C9Ó8 

77 


LO 

< HL > , A 

C969 

2188CA 


LD 

HL, lAPV 

C9AC 

09 


ADO 

HL, BC 

C96D 

223CCA 


LD 

(APO> ,HL 

C97e 

2A56CA 


LD 

HL, í IVFASE) 

C973 

09 


ADO 

HL, BC 

C974 

EB 


EX 

DE, HL 

C975 

2ASCCA 


LD 

HL, <APV> 

C978 

73 


LD 

(HL> ,E 

C979 

23 


INC 

HL 

C97A 

72 


LD 

< HL > , 0 

C97B 

3A3CCA 


LO 

A, ÍLOPINV) 

C97E 

3C 


INC 

A 

C97F 

FE08 


CP 

LIINO 

C981 

20CB 


JR 

NZ,LOPINI 

C983 

C9 


RET 




9 

BLOCO IBSSONS 

C984 


STSNOx 



C984 

7E 


LD 

A, <HL> 

C985 

FEFF 


CP 

sss 

C987 

C8 


RET 

2 

C988 

23 


INC 

HL 

C989 

SE 


LD 

E, <HL> 

C98A 

ES 


PUSH 

HL 

C988 

CD9300 


CALL 

URTPS6 

C98E 

El 


POP 

HL 

C98F 

23 


INC 

HL 

C99® 

18F2 


JR 

STSND 



» 

BLOCO 198PLACARES 

C992 


PLACAR 8 


C992 

3E08 


LO 

A, 8 

C994 

0399 


OUT 

( 153) ,A 

C996 

3E18 


LD 

A, 24 

C99B 

0399 


OUT 

(1S3> ,A 

C99A 

2A62CA 


LD 

HL, (PONTOS) 

C99D 

COAFC9 


CALL 

IMPPL 

C9AB 

3E12 


LD 

A, 18 

C9A2 

0399 


OUT 

< 153) ,A 

C9A4 

3E18 


LD 

A, 24 

C9A6 

0399 


OUT 

< 153) ,A 

C9A8 

2A64CA 


LD 

HL, (RECORD) 

C9AB 

CDAFC9 


CALL 

IMPPL 

C9AE 

C9 


RET 


C9AF 


IMPPLs 



C9AF 

111027 


LD 

DE, 10000 

C9B2 

COCAC9 


CALL 

DIGITO 

C9B5 

11E803 


LD 

DE, 1000 

C9B8 

C0CAC9 


CALL 

DIGITO 

C9BB 

11Á400 


LD 

DE, 100 

C9BE 

C0CAC9 


CALL 

DIGITO 

C9C1 

110A00 


LO 

DE, 10 

C9C4 

COCAC9 


CALL 

DIGITO 

C9C7 

110100 


LD 

DE, 1 

C9CA 


OIGITOs 



C9CA 

3E30 


LO 

A, 48 

C9CC 

A7 


ANO 

A 

C9CD 


CONTO I 1 



C9CD 

EOS2 


SBC 

HL, DE 

C9CF 

3803 


JR 

C,FIMDIG 

C9Di 

3C 


INC 

A 

C9D2 

18F9 


JR 

CONTDI 


C9D4 


FIHOIGs 



C9D4 19 
C90S 0398 
C9D7 C9 

C908 

C9D8 3A3ECA 
C9D8 F5 
C90C 3C 
C900 FE05 
C9DF 3e«3 
C9E1 3248CA 
C9E4 30 
C9E3 CB3F 
C9E7 CB3F 
C9E9 CB3F 
C9EB EÓ03 
C9E0 2803 
C9EF 3240CA 
C9F2 F1 
C9F3 E607 
C9F5 0600 
C9F7 4F 
C9F8 21FACA 
C9FB 09 
C9FC 7E 
C9F0 32Ó6CA 
CA00 2102CB 
CA03 09 
CA04 09 
CA05 7E 
CA06 3241CA 
CA09 23 
CA0A 7E 
CA0B 3240CA 
CA0E 21F2CA 
CAii 09 
CA12 7E 
CA13 323FCA 
CAló 2112CB 
CA19 09 
CAIA 09 
CAIB SE 
CAIC 23 
CAIO 56 
CAIE 2100A0 
CA21 19 
CA22 22S6CA 
CA25 3A3ECA 
CA28 3C 
CA29 323ECA 
CA2C C9 

CA20 
CA2D 00 
CA2E 00 
CA2F 00 
CA30 00 
CA31 00 
CA32 00 
CA33 00 
CA34 00 
CA35 00 
CA36 00 
CA37 00 
CA38 00 
CA39 00 
CA3A 00 
CA3B 00 
CA3C 00 
CA30 00 
CA3E 00 
CA3F 00 
CA40 00 
CA41 00 
CA42 00 
CA43 00 


> 


AOO 

HL, DE 

OUT 

RET 

( 152) , A 

STFASE* 

LO 

A, (FASE) 

PUSH 

1 AF 

INC 

A 

CP 

5 

JR 

NC,S-*>5 

LO 

(LIBOHB ) , A 

OEC 

A 

SRL 

A 

SRL 

A 

SRL 

A 

ANO 

3 

JR 

2,»^5 

LO 

(LISAB ) ,A 

POP 

AF 

ANO 

7 

LO 

B ,0 

LO 

C,A 

LO 

HLrTPFASE 

AOO 

HL, BC 

LO 

A , ( HL > 

LO 

(PTFASE) ,A 

LO 

HL, IPFASE 

AOO 

HL, BC 

AOO 

HL, BC 

LO 

A, (HL) 

LO 

(XIFASE) ,A 

INC 

HL 

LO 

A, (HL) 

LO 

( YIFASE) ,A 

LO 

HL,ACFASE 

AOO 

HL, BC 

LO 

A, (HL) 

LO 

(CFASE) ,A 

LO 

HL,DISPLT 

AOO 

HL, BC 

AOO 

HL, BC 

LO 

E, (HL) 

INC 

HL 

LO 

D, (HL) 

LO 

HL, IPVR 

AOO 

HL,OE 

LO 

( lUFASE) ,HL 

LO 

A, (FASE) 

INC 

A 

LO 

RET 

(FASE) ,A 

UARSs 

XNAUE: OB 

0 

YNAVEr OB 

0 

XTIROx OB 

0 

YTIROs DB 

0 

XTIR02S0B 

0 

YTIR02S0B 

0 

XTRs OB 

0 

YTRr DB 

0 

STATXs DB 

0 

DBOUNCSDB 

0 

MOOEs OB 

0 

CONTDS8DB 

0 

EVENTOsOB 

0 

TOGGLErOB 

0 

CCANs OB 

0 

LOPINVsDB 

0 

OIRIs OB 

0 

FASEt OB 

0 

CFASE: DB 

0 

YIFASE:OB 

0 

XIFASEsOB 

0 

PSINCs OB 

0 

CCINUS DB 

0 
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CfitAA ee FLINCs OB B 

CA45 PFOGOs DB B 

CA46 BB CFOGOS DB B 

CA47 BB NBOMB: DB B 

CA48 BI LIBOMBSDB 1 

CA49 BB NAVES: DB B 

CA4A BB FLACS DB B 

CA46 BB CSAB: DB B 

CA4C BB NSABs DB B 

CA4D Bi LISAB: DB i 

» 

CA4E BB4B INISEMsDU 16384 

CA5B FF7F FlnSEfilDW 3Ü767 

CAS2 BBBB SEMT s DU B 

CA54 BBBB CVRAMt DU B 

CA56 BBBB IVFASE:DW B 

CAS8 BBBB PXINV: DU B 

CASA BBBB PYINV: DU B 

CA5C BBBB APV: DU B 

CASE BBBB PTABLE:DU B 

CA6B BBBB FTIRO: DU B 

CA62 BBBB PONTOS:DU B 

CA64 BBBB RECORDtDU B 

CA66 BBBB PTFASEsDU B 

? BLOCO 22:ARRAYS 

CA68 ARRAY: OS 32 

CA88 lAPV: DS 16 

CA98 IAB0MB:DS 32 

CAB8 AF141EB2 ARSAB: DB 1 75 , 2B . 24 , 2 , 175 , 8B r 28 , 1 3 , 175 , 22 

CABC AF5B1CBO 
CACB AFDC18B8 
CAC4 lADBi DS 

CACC BBBBBlBi lARXs DB 
CADB BIBBFFFF 
CAD4 FF 

CAD5 BBC^FFFBB lARYs OB 
CAD9 BIBIBIBB 
CAOD FF 

CADE AB8BBBBE ARPC: DB 

CAE2 D18B1BBF 
CAE6 D18B1BBF 
CAEA AB8BBCBB 
CAEE BB8B1BB8 
CAF2 B8B4B2BA ACFASE:DB 
CAF6 B6B5B3BF 
CAFA 323C465B TPFASE:DB 
CAFE 5A646E78 
CBB2 FF465AFB IPFASEsOB 

CBB6 FF145>CF 
CBBA 5AFBFF14 
CBBE 78CF6EFB 
CB12 BBBB98BB DISPLTsDU 

CB16 4CB1BBB2 
CBIA BEB27BB3 
CBIE S3B4BEB5 
CB22 B7FEBBBB SDTIROiOB 7,254.0,0,1,0,8,15,255 
CB26 BIBBBOBF 
CB2A FF 

CB2B B7F7B61F SOEXPL:DB 7 , 247 , 6 , 31 , 8 , 1 6 , 12 , 32 , 1 3 , B , 255 
CB2F B81BBC2B 
CB33 BÜBBFF 

CB36 2B2B5B4F MSTEL s DB 
CB3A 4E544F53 
CB3E 3A3B3B3B 
CB42 3B3B2B 

CB45 4D41583A DB 

CB49 3B3B3B3B 
C04D 3B2B4E41 
CB51 S64S533A 
CB55 20 

CB56 END 


' P0NT0S:BBBBB ' 


’MAX:BBBBB naves: ' 


8 

B,B,i,l,l,B,-l ,-l ,-l 


B,-l,-l,B,l,i,l,B,-l 


160.128.0. 14.209. 128.16. 15. 2B9, 

128.16.15.160.128.12.0. 176.128.16.8 

8,4,2,10,6,5,3,15 

SB,6B,7B,8B,9B, IBB, IIB, 12B 

255 ,70,90, 240 , 255 ,20,90. 207 , 90 , 
240,255,20, 120,207, 1 10,240 

0.98H, 14CH,2BBH,2BEH,37BH. 453H, 
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» 


E. 

ao mon j tor e 


fínalmente, a figura 6.5. Volte novamentt 
use M &HA000. Após digitar, comande 


BSAVE ”TRAJ",&HA000,&HA5A1 


FIGURA Ó.5 

- Trajetória dos 

invasores 

Aeoe 

00 

00 

00 

00 

00 

00 

00 

00 

A99B 

00 

00 

00 

00 

00 

00 

00 

00 

Aeie 

00 

00 

00 

00 

00 

00 

O0 

00 

AOIB 

00 

00 

00 

00 

00 

00 

00 

00 

AB20 

00 

02 

02 

02 

02 

02 

03 

03 

A028 

04 

04 

05 

05 

05 

05 

05 

06 

Aoae 

06 

05 

05 

05 

04 

04 

03 

04 

AB38 

04 

03 

02 

02 

01 

01 

01 

01 

AB4B 

01 

01 

01 

01 

08 

08 

07 

06 

AB48 

06 

05 

05 

05 

05 

05 

04 

04 

ABSe 

03 

02 

02 

02 

02 

01 

01 

01 

A0S8 

01 

01 

01 

01 

01 

01 

08 

08 

AB60 

07 

06 

06 

05 

05 

05 

05 

05 

A0ÓB 

OS 

05 

04 

04 

03 

02 

02 

02 

AB7e 

02 

03 

04 

05 

05 

05 

05 

05 

AB78 

05 

05 

05 

06 

06 
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08 

08 

AB80 

01 

01 

01 

01 

01 

01 

01 

01 

A088 
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04 

04 

04 

04 

A090 

03 

02 
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02 
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02 

FF 

A098 

00 
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00 

A0A0 
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00 

A0AB 

00 
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00 

00 

00 

00 

AOBd 

00 

00 

00 

00 

00 

00 

00 

00 

A0O8 

05 

05 

06 

06 

06 

06 

06 

06 

A0Ce 

06 

05 

05 

04 

04 

04 

04 

03 

A0C8 

03 

02 

02 

02 

02 

03 

03 

04 

A0D0 

04 

04 

04 

05 

06 

06 

06 

06 

A0D8 

07 

07 

08 

08 

08 

08 

07 

07 

A0C0 

07 

08 

08 

08 

08 

08 

01 

01 

A0E8 

02 

02 

03 

03 

03 

03 

04 

04 

A0F0 

04 

04 

04 

04 

04 

04 

04 

04 

A0F8 

04 

05 

06 

06 

06 

06 

07 

07 

A100 

07 

0B 

08 

08 

08 

08 

08 

08 

Ai0B 

01 

01 

01 

01 

02 

02 

02 

02 

Ai 10 
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04 

Al 18 
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05 

05 

05 

A120 
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06 

06 
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07 

07 

A128 
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08 

08 

07 

06 

06 

05 
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A130 

04 

03 

03 

03 

02 

02 

02 

02 

A138 

02 

01 

01 

01 

01 

01 

01 

08 

Al 40 
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08 

08 

08 

08 

08 

08 

08 

Al 48 

08 

08 

08 

FF 

00 

00 

00 

00 

A150 

00 

00 

00 

00 

00 

00 

00 
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A1S8 

00 

00 

00 

00 

00 

00 

00 

00 

A160 

00 

00 

00 

00 

00 

00 

00 

00 

A1À8 

00 

00 
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00 

03 

03 

03 

03 

A170 

03 
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04 

05 
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03 

03 

03 

A178 

03 

03 

03 

04 

05 

04 

03 

03 

A180 

03 

03 

03 

04 

05 

04 

03 

03 

A188 

03 

03 

03 

03 

04 

05 

06 

07 

A190 
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07 

07 

07 

07 

08 

01 

08 

A198 

07 

07 

07 

07 

07 

07 

08 

01 

Al A0 

08 

07 

07 

07 

07 

07 

07 

06 

AIAB 

05 

04 

03 

03 

03 

03 

03 

03 

A1B0 

04 

05 

04 

03 

03 

03 

03 

03 

A1B8 

03 

04 

05 

04 

03 

03 

03 

03 

A1C0 

03 

03 

04 

05 

06 

07 

07 

07 

A1C8 

07 

07 

07 

08 

01 

08 

07 

07 

A1O0 

07 

07 

07 

07 

06 

05 

06 

07 

A108 

07 

07 

07 

07 

07 

08 

01 

01 

A1E0 

01 

01 

01 

01 

01 

02 

02 

02 

A1E8 

02 

02 

02 

02 

02 

03 

03 

03 

A1F0 

04 

03 

03 

03 

03 

03 

04 

03 

A1F8 

03 

03 

03 

03 

02 

02 

02 

FF 

A200 

00 

00 

00 

00 

00 

00 

00 

00 

A208 

00 

00 

00 

00 

00 

00 

00 

00 

A210 

00 

00 

00 

00 

00 

00 

00 

00 
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A218 

00 

00 

00 

00 

00 

00 

00 

00 

A220 

01 

01 

01 

01 

01 

01 

01 

01 

A228 

01 

01 

01 

01 

01 

01 

01 

01 

A230 

01 

01 

01 

01 

01 

01 

08 

07 

A238 
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05 

04 

03 

03 

02 

01 

08 

A240 

07 

06 

05 

04 

03 

03 

04 

05 

A248 
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05 

05 
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06 

06 

06 

A250 

06 

06 

05 

04 

04 

03 

03 

03 

A258 

03 

03 

02 

02 

02 

01 

01 

01 

A260 

01 

01 

01 

01 

02 

02 

02 

03 

A268 

03 

03 

04 

04 

04 

05 

05 

05 

A270 

06 

06 

06 

07 

07 

07 

08 

08 

A278 

01 

01 

02 

02 

03 

03 

04 

05 

A280 

06 

07 

08 

01 

00 

00 
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00 

A288 
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07 

06 
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FF 
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00 
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00 

00 
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00 

00 
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00 

00 

00 

00 

00 

00 

00 
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00 

00 

00 

00 

00 

00 

00 

00 

A2D8 

00 

00 

00 

05 

05 

05 

05 

05 

A2E0 

05 

05 

05 

05 

05 

08 

08 

07 
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A2F8 

04 

03 

03 

02 

02 

01 

01 

08 

A300 

08 

06 

04 

04 

03 

03 

02 

02 

A308 

01 

01 

08 

08 

07 

07 

06 

06 

A310 

05 

05 

04 

04 

04 

04 

03 

03 

A318 

03 

02 

02 

01 

01 

08 

08 

07 

A320 

07 

06 

06 

05 

05 

05 

05 

05 

A328 

04 

04 

03 

03 

00 

00 

00 

00 

A330 

03 

03 

02 

02 

01 

01 

02 

02 

A338 

02 

03 

03 

04 

04 

05 

05 

05 

A340 

06 

06 

05 

05 

06 

.06 

06 

07 

A348 

00 

00 

00 

00 

00 

00 

00 

00 

A350 

00 

00 

00 

00 

00 

00 

00 

00 

A358 

08 

01 

01 

01 

01 

01 

01 

01 

A3Ó0 

01 

01 

01 

01 

01 

01 

01 

08 

A368 

01 

01 

01 

01 

01 

01 

01 

FF 

A370 

00 

00 

00 

00 

00 

00 

00 

00 

A378 
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00 
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03 
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05 

06 

06 

06 

07 

07 

07 
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07 

07 

08 

08 

08 

01 

01 

01 
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01 

01 

01 

01 

02 

02 

02 

03 

A3E0 

03 

04 

05 

05 

05 

05 

05 

05 

A3E8 

05 

05 

04 

03 

03 

02 

01 

01 

A3F0 

08 

07 

07 

06 

05 

05 

04 

03 

A3F8 

03 

02 

01 

01 

08 

07 

07 

06 

A400 

05 

05 

04 

03 

03 

03 

03 

02 

A408 

03 

04 

05 

05 

05 

05 

05 

06 

A410 

07 

07 

06 

05 

05 

05 

06 

07 

A418 

07 

08 

01 

01 

01 

08 

07 

07 

A420 

06 

05 

05 

05 

06 

07 

07 

08 

A428 

01 

01 

01 

08 

07 

07 

06 

05 

A430 

05 

05 

05 

00 

00 

00 

00 

00 

A438 

00 

00 

00 

01 

01 

01 

01 

01 

A440 

01 

01 

01 

01 

01 

01 

01 

01 

A448 

02 

01 

01 

01 

01 

01 

08 

07 

A450 

07 

07 

FF 

00 

00 

00 

00 

00 

A458 

00 

00 

00 

00 

00 

00 

00 

00 

A460 

00 

00 

00 

00 

00 

00 

00 

00 

A468 

00 

00 

00 

00 

00 

00 

00 

00 

A470 

00 

00 

00 

01 

01 

01 

01 

01 
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A47B 

01 

01 

01 

01 01 

01 

01 

01 

A^ee 

01 

03 

03 

03 03 

07 

07 

07 

A4B8 

07 

07 

07 

07 07 

03 

03 

03 

A490 

03 

05 

05 

05 05 

05 

05 

07 

A49B 


05 

05 

05 0Ó 

07 

07 

07 

A4Ae 

08 

01 

01 

01 08 

07 

06 

05 

A4AB 

05 

05 

04 

03 03 

07 

07 

07 

A4BB 

07 

07 

08 

01 01 

01 

01 

01 

A^BB 

02 

02 

02 

02 02 

02 

03 

03 

A4CB 

03 

03 

02 

03 03 

03 

03 

03 

A4CB 

03 

04 

03 

03 04 

05 

05 

05 

A4oe 

05 

05 

05 

05 01 

01 

01 

08 

A4DB 

07 

07 

06 

05 05 

05 

05 

05 

A4E0 

05 

04 

03 

03 03 

03 

02 

01 

A4EB 

01 

01 

01 

01 01 

01 

01 

01 

A4F0 

01 

01 

01 

08 08 

08 

01 

01 

A4FB 

08 

07 

07 

07 06 

05 

05 

06 

AS00 

07 

07 

08 

01 01 

02 

03 

02 

A50B 

01 

08 

01 

01 01 

FF 

00 

00 

AS10 

00 

00 

00 

00 00 

00 

00 

00 

AS18 

00 

00 

00 

00 00 

00 

00 

00 

AS20 

00 

00 

00 

00 00 

00 

00 

00 

A528 

00 

00 

00 

00 05 

05 

05 

06 

AS30 

05 

05 

05 

06 05 

05 

05 

06 

AS38 

05 

05 

05 

06 05 

05 

05 

06 

A540 

05 

04 

03 

03 03 

03 

02 

03 

AS48 

03 

02 

03 

03 02 

03 

03 

02 

ASS0 

03 

03 

02 

03 03 

04 

05 

00 

ASS8 

00 

00 

00 

00 00 

00 

00 

00 

ASÀ0 

00 

00 

00 

00 00 

00 

05 

05 

ASÓB 

05 

05 

05 

06 07 

07 

07 

07 

AS70 

07 

07 

07 

07 07 

07 

07 

07 

A578 

07 

07 

07 

07 07 

07 

07 

07 

AS80 

07 

07 

07 

07 07 

07 

07 

08 

AS88 

01 

01 

01 

01 01 

01 

01 

01 

AS90 

01 

01 

01 

01 01 

01 

01 

01 

A59B 

01 

01 

01 

01 01 

01 

01 

01 

ASA0 

01 

FF 








Pronto, agora 

é só rodar. Antes disso, certifi- 

que- 

se 

de 

que os programas foram salvos corretamente. 

Digite 

então: RUN "ORPHEUS" ipara disco) 



Se 

você quiser 

gravar os programas em fita cas- 

sete 

. use 

r» 

CAS:" 

como 

nome de dispositivo em todas as 

gravações 

e 

altere 

a 

linha ?00 do programa listado na 

f igura 

6. 

S 

par a : 





200 

BLOAD 

"CAS 

s I E L A " s B !._ 0 A D " C A S :: J 0 G 0 " s 


B 

.OAD 

"CAS 

sTRAJ" 



Se 


tudo 

estiver correto o jogo começará após 

a 1 guns 

segundos. 

Seus controles são as teclas de 

cursor 

e 

a 

barra 

de 

espaços, mas podem ser mudados 

para 

joystick com o 

comando 





ROKE 

«HCA4CM 

e voltados 

para 

teclado ccm 





POKE 

&HCA4C,0 




Defenda 

a 

Terra com toda a sua garra e que a 

Força esteja com 

você 

sempre! 








4 r* 
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APÊNDICE I - MAPA DAS PORTAS DO Z80 

0 processador Z80 é capaz de manipular 256 
portas de entrada e saída diferentes. Quando se usa o 
comando OUT N.A do processador, a porta N recebe o da- 
do fornecido em A. Reciprocamente, o comando IN A,(N) 
lê 0 dado da porta N e o coloca no acumulador. N pode 
estar entre 0 e 255. 

Para operar os circuitos periféricos do com- 
putador, 0 Z80 possui circuitos de controle ligados às 
suas portas. Assim, por exemplo, o teclado usa as por- 
tas 169 e 170 (&HA9 e &HAA, respectivamente). 

0 mapa completo das portas de controle é o 

segui nte : 

&HFF 
&HF8 
&HF0 
&HE0 
&HD8 
&HC0 
&HB8 
&HB0 
&HA8 
&HA0 
&H98 
&H90 
&H88 
&H80 
&H00 

I. As portas assinaladas com um são usadas ape- 
nas por algumas marcas japonesas. Nos micros nacionais 
(Expert e Hot-Bit) elas estão desligadas. 

II. As portas situadas entre &H00 e &H7F não são usa- 
das pelo sistema MSX. 


Vaz i 0 

* Controle de áudio e vídeo 

Vazio 

* Rom de caracteres japoneses 

Vaz i 0 

1 nterf ace de 1 i ght-pen 

» Memór i as externas 

PPI (P8255A) 

PSG (AY-3-8910) 

VDP (TMS9128) 

Interface de impressora 

Vaz i 0 

Interface RS-232C 

Não uti 1 i zado 
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Descrição das portas do MSX: 
i. RS-232C 

80H Porta de dados do 8251 . 

81H Porta de comandos/status da 8251. 

82H Chaves de seleção de velocidade. 

bits 0-3: velocidade de 
transmissão, 
bits 4-7:velocidade de 
recepção. 


valor 

velocidade 
( bauds ) 

valor 

velocidade 
( bauds ) 

0 

50 

8 

4800 

1 

75 

9 

9600 

2 

110 

A 

12800 

3 

150 

8 

- 

4 

300 

C 

- 

5 

600 

D 

- 

6 

1200 

E 

- 

7 

2400 

F 

desi igado 


83H Chaves de seleção da configuração 
(modo leitura). 

Registro de interrupção (modo 
escr i ta ). 

Modo leitura - funções diversas. 
Bit Função Lógica 


0 - CD ( detetor de sinal). 

1 - ativa/desat. auto 

I i ne f eed na recepção . 

2 - Fu 1 1 /Ha I f dup I ex . 

3 - Liga/desliga controle 

externo. 

^ - Tamanho da palavra. 

5 - Paridade par/ímpar. 

6 - Liga/desliga paridade. 

7 - Stop bits. 


1 =At i va . 

1 =Fu I I dup I ex . 
1 =L i ga . 

1=8 b i tS; 

0=7 bits. 
1=Par. 

1=Liga. 

1=2 bits; 

0=1 bit. 


84H Contador 0 do 8253. 

85H Contador 1 do 8253. 

86H Contador 2 do 8253. 

87H Registro de modo do 

8253. 
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2. IMPRESSORA 

90H Linha "BUSY”. bit 1 (ieitura). 

90H Saída "STROBE”: bit 0 (escrita). 

91H Saída de dados. 


3_ OOP 

98H Dados da VRAM. 

99H Endereços e status da VRAM e VDP. 


4- PSG 


A0H 

A1H 

A2H 


Endereço (número do registro). 
Saída de dados. 

Entrada de dados. 


5- PPI 


A8H 

Porta 

A. 

A9H 

Porta 

B. 

AAH 

Porta 

C. 

ABH 

Porta 

de controle 
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APÊNDICE II - V^ARI^«^EIS DO SISTEMA 

Este apêndice contém o mapa das variáveis do 
sistema mais importantes para o usuário. 

A notação da área de variáveis é a seguinte: 
à esquerda há um número em hexadecimal que aponta o 
primeiro endereço e em seguida há o nome. O número que 
segue o nome indica o tamanho da variável em bytes (em 
decimal ) . 

Inicialmente temos as sub-rotinas que permi- 
tem. de maneira simples, ler. escrever e chamar qual- 
quer endereço de qualquer SLOT primário. Essas sub- 
rotinas são colocadas na RAM durante a inicialização 
do sistema e podem ser utilizadas pelo usuário. 

PPI .AW::&Biei0iee0=&HA8 ; Porta A da PPI. 

F380 RDPRM. 5 

OUT (PPI.AW).A 
LD E.(HL) 

JR WRPRM1 
F385 WRPRIM.7 

OUT (PPI.AW).A 
LD (HL).E 
WRPRM1 

LD A. D 

OUT (PPI .AW).A 
RET 

F38C CLPRIM.14 

OUT (PPI.AW).A 
EX AF.AF' 

CALL CLPRIM+12 
EX AF.AF’ 

POP AF 

OUT (PPI.AW).A 
EX AF.AF' 

RET 

JP (IX) 


.Escolhe SLOT primário. 

;Lê endereço dado por HL. 

; Vo I ta ao estado inicial. 

;Escolhe SLOT primário. 
;Escreve o dado. 

;Carrega o estado inicial. 
;Volta ao estado inicial . 


;Salva acumulador e flags. 
;exec. CALL através de IX. 
;Salva regs remanescentes. 
;Recupera estado inicial. 

;Volta regs remanescentes. 

;Chamado pelo CALL acima. 


Seguem as variáveis do sistema. 

F39A USRTAB.20 

DW FCERR 
CW FCERR 
DW FCERR 
DW FCERR 
DW FCERR 
DW FCERR 
DW FCERR 
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DW FCERR 
DW FCERR 
DW FCERR 


F3AE 

LINL40.1 

DB 

39 

F3AF 

LINL32.1 

DB 

29 

F3B0 

LINLENJ 

DB 

39 

F3B1 

CRTCNT.1 

DB 

24 

F3B2 

CLMLSTJ 

DB 

14 


Dados da 

SCREEN 0. 

F3B3 

TXTNAM.2 

DB 

0 

F3B5 

TXTC0L,2 

DW 

0 

F3B7 

TXTCGP.2 

DW 

2048 

F3B9 

TXTATR.2 

DW 

0 

F3BB 

TXTPAT.P 

DW 

0 


Dados da 

SCREEN 1 . 

F3BD 

T32NAM.2 

DW 

6144 

F3BF 

T32C0L.2 

DW 

8192 

F3C1 

T32CGP..2 

DW 

0 

F3C3 

T3EATR.2 

DW 

6912 

F3C5 

T32PAT.2 

DW 

14336 


Dados da 

SCREEN 2. 

F3C7 

GRPNAM.2 

DW 

6144 

F3C9 

GRPC0L.2 

DW 

8192 

F3CB 

GRPCGP.2 

DW 

0 

F3CD 

GRPATR.2 

DW 

6912 

F3CF 

GRPPAT.2 

DW 

14336 


Dados da 

SCREEN 3. 

F3D1 

MLTNAM.2 

DW 

ru 

CO 

F3D3 

MLTC0L.2 

DW 

0 

F3D5 

MLTCGP.2 

DW 

0 

F3D7 

MLTATR.2 

DW 

6912 

F3D9 

MLTPAT 

DW 

14336 

F3DB 

CLIKSW.1 

DB 

1 

F3DC 

CSRY.1 

DB 

1 

F30D 

CSRX.1 

DB 

1 

F3DE 

CNSDFG.1 

DB 

255 


Largura da SCREEN 0. 
Largura da SCREEN 1 . 
Largura corrente. 

Número de linhas da tela. 


Endereço do mapa da tela. 
Sem uso. 

End. tabela de caracteres. 
Sem uso. 

Sem uso. 


End. do mapa da tela. 

End. do mapa de cores. 

End. tabela de caracteres. 
End. de atributos sprites. 
End. tab. padrões sprites. 


Endereço do mapa da tela. 
Endereço do mapa de cores. 
End. tabela de caracteres. 
End. de atributos sprites. 
End. tab. padrões sprites. 


Endereço do mapa da tela. 
Sem uso. 

End. tabela de caracteres. 
End. atributos sprites. 
End. tab. padrões sprites. 

Chaveia o som do teclado. 
Posição Y do cursor. 
Posição X do cursor. 

Indica se deve imprimir as 
teclas de função. 
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Cópia dos registros do VOP. 


F3DF 

RG0SAV.1 

DB 

0 


F3E0 

RG1SAVJ 

DB 

0 


F3E1 

RG2SAV.1 

DB 

0 


F3E2 

RG3SAVJ 

DB 

0 


F3E3 

RG4SAVJ 

DB 

0 


F3E4 

RG5SAV.1 

DB 

0 


F3E5 

RG6SAV.1 

DB 

0 


F3E6 

RG7SAV.1 

DB 

0 


F3E7 

STATFL.1 

DB 

0 


F3E8 

TRGFLG.1 

DB 

241 

Indica pressão na barra de 
espaço/botão do joystick. 

F3E9 

FORCLR ,1 

DB 

15 

Cor de frente da tela. 

F3EA 

BAKCIR.1 

DB 

4 

Cor de fundo da tela. 
( DB 1 para o Expert ) 

F3EB 

BDRCLR.1 

DB 

4 

Cor da borda da teta. 
( DB 1 para o Expert ) 

F3F6 

SCNCNT.1 

DB 

1 

Intervalo leitura teclas. 

F3F7 

REPCNT.1 

DB 

50 

Intervalo p/ auto-repeat. 

F3F8 

PUTPNT.2 

DW 

KEYBUF 

Endereço do último carac- 
ter digitado. 

F3FA 

GETPNT.2 

DW 

KEYBUF 

Endereço do próximo carac- 
ter lido pelo s i stema. 

F3FC 

CS120J0 



Parâmetros do cassete. 


Constantes para 1200 BPS. 

LOW01= 83;Tempo pulso baixo bit 0. 
HIGHT01 =92;Tentpo pulso alto bit 0. 
LOW11= 36;Tempo pulso baixo bit 1. 
HIGHT11=45;Tempo pulso alto bit 1. 

Constantes para 2400 BPS. 

LOW02= 37;Tempo pulso baixo bit 0. 
HIGH02= 45;Tempo pulso alto bit 0. 
L0W12= 14;Tempo pulso baixo bit 1. 
HIGH12= 22;Tempo pulso alto bit 1. 

HEDLEN=2000;Tam.( em bits) do header. 

DB LOW01 
DB HIGH01 
DB LOW11 
DB HIGH11 
DB HEDLEN*2/256 
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F406 


F408 


F40A 


F40F 


F414 

F415 

F^ÍIB 

F417 


F418 

F-Í19 

F41B 

FB7E 

FB74 


FB7B 

F6A3 

FBB9 

FBBB 

FBC2 
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OB LOW02 
DB HIGH0B 
OB LOW1S 
DB HIGH12 
DB HEDLEN»4/25B 

L0W,2 

DB LOW01 
DB HIGH01 

HIGH,2 

DB LOW11 
OB H1GH11 

HEADER.1 

DB HEDLEN*P/25B 

ENOPRG lúltíma posição que exige inicialização. 

ENDPRG.5 DW "t” ; Assume fim do programa 

;para RESUME NEXT. 


Final das constantes i n í c i a I i zadas . 


ERRFLG.1 

LPTPOS.1 

PRTFLG.1 

NTMSXP.1 


RAWPRT.1 
VLZADR.S 
VLZDAT J 

MEMSIZ.E 

STKT0P.2 


TXTTAB.2 
DATLIN,2 
ONEL IN.2 

ONEFLG.I 

VARTAB,2 


Salva 0 número do erro. 
Coluna da impressora 
(iniciada com 0). 

Indica saída p/impressora. 
Vaie 0 p/ impressora MSX. 
No Expert 1.1 e no HOTBIT 
0 funcionamento dessa 
variável de sistema ú o _ 
inverso. Quando £m 0 estão 
ativos os fiitros para a 
compat i b i I i zacão ABNT ou 
AB I COMP . 

Não-0 durante ”raw mode". 
End. carac. usado por VAL. 
Carac. trocado por 0 
por VAL. 

Maior posição da memória. 
Maior posição designada p/ 
0 "stack". inícializada de 
acordo com MEMSI Z. 

Início do programa BASIC. 
No . da linha com erro . 

;A linha do ”ON ERROR 
GOTO” . 

Assume 1 quando há 
ONERROR. 

Aponta área de vaiiáveis 
simpies. Recebe (l<TTAB)+2 
ao se iniciar o BASIC 



F6C4 

ARYTAB,E 

FBC6 

STREND,E 

F6CA 

DEFTBL,E6 

F7C4 

F85F 

F860 

F8C2 

F864 

TRCFLG,1 

MAXFIL,1 

FILTAB,E 

NULBUF,E 

PTRFIL,E 

F866 

RUNFLG,0 

F866 

FILNAM.II 

F871 

FILNME,11 

F87C 

NLONLY,1 

F87D 

F87F 

F91F 

SAVENO,E 

FNKSTR.160 

CGPNT,3 

F9EE 

F9E^ 

F9E6 

NAMBAS,E 

CGPBAS,E 

PATBAS,E 

F9E8 

ATRBAS,E 

FBB0 

ENSTOP,1 


FBB1 BASR0M.1 


( ou NEW) e muda com o 
tamanho do programa. 

Aponta tabela de "arrays”. 
Recebe (VARTAB) ao se 
limpar a área de 
variáveis. 

Marca o final da área 
ativa das variáveis. 

Indica 0 tipo da var i áve I 
que comeca com a respec- 
tiva letra. 

Marca 1 quando TRON ativo. 
Número máximo de arquivos. 
End. dos dados do arquivo. 
End. do buffer do canal 0. 
End. dos dados do arquivo 
chamado . 

Indica se o programa deve 
rodar após a leitura. 

Usado pelo comando NAME, 
guarda o nome do arquivo 
a alterar . 

Guarda o novo nome do 
arquivo. 

Não nulo quando lendo 
: programa. 

Ültímo byte do BSAVE. 

A'rea das teclas de função. 
Endereço e slot da tabela 
de caracteres (usada 
pelo SCREEN). 

Base do mapa de tela. 

Base da tab. caracteres. 
Base da tab. padrões 
spr ites. 

Base da tab. atrib. 
spr i tes. 

Fl ag de hab i 1 1 1 . do 
warmstart. Quando 
diferente de zero, e as 
teclas CTRL+SHIFT+RGRA(ou 
COOE)+LGRA(ou GRAPH) são 
press i onadas 

simultaneamente o controle 
do micro é devo I v i do ao 
usuário, desde que a 
I nterrupção 
este j a hab i I i tada . 

Não zero para cartuchos 
BASIC 


J 


FBBB 

LINTTB.B4 

FBCA 

FSTPOS.E 

FBCC 

CODSAV.a 

FBCD 

FNKSWM 

FBCE 

FNKFLG.1 

FBD8 

ONGSBF.1 

FBD9 

FC48 

FC4A 

FCA8 

FGA9 

CLIKFL.1 

BOTTOM.a 

HIMEM.B 

INSFLGJ 

CSRSW.I 

FCAA 

FCAB 

FCAF 

FCBF 

FCC1 

CSTYLE.I 

CAPST.1 

SCRMOD.1 

SAVENT.2 

EXPTBL.4 

FCC5 

SLTTBL,4 

FCC9 

SLTATR.64 

FD09 

SLTWRK.128 

FD89 

PR0CNAM.16 

FD99 

DEVICE.1 


Comprimento das linhas 
lógicas da tela. 

Primeira posição para 
INL IN. 

Cód. do caracter sob o 
cursor . 

Indica quando imprimir as 
teclas de função. 

Indica as teclas ativas 
por KEY (N) ON. 

Indica se ON KEY GOSUB 
está ativo. 

Indica "cl ick" de teclado. 
Indica início da RAM. 
Indica final da RAM ativa. 
Indica modo de i nserção. 
Indica 1 ao acender 
cursor . 

Indica o tipo do cursor. 
Trava/destrava maiusculas. 
Guarda o número da SCREEN. 
End. inicial do BSAVE. 

Tab. f lags slots 
expandi dos . 

Tab. dos slots secundários 
atuais de cada primário. 
Guarda atributos das 
páginas dos slots. 

Area de trabalho para 
os slots. 

Armazena o nome digitado 
após 0 comando CALL. 
Identificador de perifé- 
rico para cartucho (0-3). 


A seguir inicia-se a área dos hooks. 
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APÊNDICE III - MAPA DOS HOOKS DO MSX 

Os hooks do sistema MSX estão listados a se- 
guir. juntamente com seus endereços de chamada e uma 
breve explicação de suas funções. Cada um dos hooks 
possui 5 bytes. No capitulo 1 há uma explicação deta- 
lhada da utilização dos hooks. 


FD9A 

HKEYI 

00C4 

Vetor de interrupção 
B0 Hz. 

FD9F 

HTIMI 

0C53 

Vetor de interrupção 
B0 Hz. 

FDA4 

HCHPU 

08C0 

CHPUT do BIOS. 

FDA9 

HDSPC 

09E6 

Imprime de cursor. 

FDAE 

HERAC 

0A33 

Apaga cursor. 

FDB3 

HDSPF 

0BEB 

DSPFNK do BIOS. 

FDB8 

HERAF 

0B15 

ERAFNK do BIOS. 

FDBD 

HTOTE 

0842 

TOTEXT do BIOS. 

FDC2 

HCHGE 

10CE 

CHGET do BIOS. 

FDC7 

HINIP 

071 E 

Copia tab. caracteres 
p/ VRAM. 

FDCC 

HKEYC 

1025 

Leitor de teclado. 

FDD1 

HKYEA 

0F10 

Leitor de teclado. 

FD06 

HNMI , 

1398 

NMI do BIOS. 

FDDB 

HPINL 

23BF 

PINLIN do BIOS. 

FDE0 

HO INL 

23CC 

OINLIN do BIOS. 

FDE5 

HINLI 

2305 

INLIN do BIOS. 

FDEA 

HONGO 

7810 

”ON DEVI CE GOSUB” 

FDEF 

HDSKO 

7C1B 

"DSK0$” 

FDF4 

HSETS 

7C1B 

"SET" 

FDF9 

HNAME 

7C20 

"NAME" 

FDEF 

HKILL 

7C25 

"KILL" 

FE03 

HIPl 

7C2A 

"IPL" 

FE08 

HCOPY 

7C2F 

"COPY" 

FE0D 

HCMD 

7C34 

"CMD" 

FE12 

HDSKF 

7C39 

"DSKF" 

FE17 

HDSKI 

7C3E 

"DSKI$" 

FE1C 

HATTR 

7C43 

"ATTR$" 

FE21 

HLSET 

7C48 

"LSET" 

FE26 

HRSET 

7C4D 

"RS ET" 

FE8B 

HFIEL 

7C52 

"FIELD" 

FE30 

HMKI$ 

7C57 

"MK 1 $" 

FE35 

HMKS$ 

7C5C 

"MKS$" 

FE3A 

HMKD$ 

7C61 

"MKD$" 

FE3F 

HCVI 

7C66 

"CVI" 

FE44 

HCVS 

7C6B 

"CVS" 

FE49 

HCVD 

7C70 

"CVD" 

FE4E 

HGETP 

6A93 

Local i zador do FCB. 

FE53 

HSETF 

BAB3 

Local i zador do FCB. 

FE58 

HNOFO 

6AFB 

"OPEN" 
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) 


FE5D 

HNULO 

BBF0 

"OPEN” 

FE6E 

HNTFL 

6B3B 

Fecha buffer 0 de E/S 

FE67 

HMERG 

6B63 

"MERGE/LOAD” 

FE6C 

HSAVE 

6BA6 

"SAVE" 

FE71 

HBINS 

6BCE 

"SAVE" 

FE76 

HBINL 

6BD4 

"MERGE/LOAD” 

FE7B 

HFILE 

6CPF 

"FILES" 

FE80 

HDGET 

6C3B 

"GET/PUT" 

FE85 

HFIIO 

6C51 

Gravação sequenc í a 1 . 

FE8A 

HINOS 

6C79 

Leitura sequencial . 

FE8F 

HRSIF 

6CD8 

"INPUT$” 

FE94 

HSAVD 

6D03 

"LOG" 



6D14 

"LOF" 



6D25 

"EOF” 



6D39 

"FPOS" 

FE99 

HLOC 

6D0F 

"LOO" 

FE9E 

HLOF 

6030 

"LOF" 

FEA3 

HEOF 

6033 

"EOF” 

FEA8 

HFPOS 

6043 

"FPOS" 

FEAD 

HBAKU 

6E36 

"LI NE INPUT •" 

FEB2 

HPARD 

6F15 

Ana 1 í sador do nome do 
periférico. 

FEB7 

HNODE 

6F33 

1 dem. 

FEBC 

HPOSD 

6F37 

1 dem. 

FEC1 

HDEVN 


Sem uso. 

FEC6 

HGENO 

6F8F 

Funções de E/S. 

FECB 

HRUNC 

6E9A 

RUN-OLEAR. 

FED0 

HCLEA 

63A1 

1 dem. 

FED5 

HLOPD 

63AF 

1 dem. 

FEDA 

HSTKE 

62F0 

Limpa stack. 

FEDF 

HISFL 

145F 

ISFLIO do BIOS. 

FEE4 

HOUTD 

1B46 

OUTDO do BIOS. 

FEE9 

HCRDO 

7328 

OUTOO ( com OR ou LF ) . 

FEEE 

HDSKC 

7374 

Loop de entrada de 
1 i nha . 

FEF3 

HDOGR 

5930 

Traçado de 1 i nhas. 

FEF8 

HPRGE 

4039 

Fim do programa. 

FEFO 

HERRP 

40DC 

Operador de erros. 

FF0E 

HERRF 

40FD 

1 dem. 

FF07 

HREAD 

4128 

Oontrole de "prompt" 
("Ok”). 

FF0C 

HMAIN 

4134 

Loop principal. 

FF11 

HDIRO 

41 A8 

Oontrole de comando 
direto. 

FF16 

HFINI 

4237 

Final do loop 
principal. 

FF1B 

HFINE 

4247 

1 dem. 

FFE0 

HCRUN 

42B9 

Varredor de "tokens" 

FF25 

HCRUS 

4353 

1 dem. 

FFSA 

HISRE 

4370 

1 dem. 
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FF2F 

HNTFN 

43A4 

1 dem. 

FF34 

HNOTR 

44EB 

1 dem. 

FF39 

HSNGF 

45D1 

“FOR”. 

FF3E 

HNEWS 

^601 

Nova instrução a ser 
executada . 

FF43 

HGONE 

4646 

Execução do programa 
BASIC. 

FF48 

HCHRG 

4666 

CHRGTR do BIOS. 

FF4D 

HRETU 

4821 

“RETURN” 

FF52 

HPRTF 

4A5E 

“PRINT" 

FF57 

HCOMP 

4A94 

"PRINT" 

FF5C 

HFINP 

4AFF 

"PRINT" 

FF61 

HTRMN 

4B4D 

Erro no "REAO" ou 
“INPUT”. 

FF66 

HFRME 

4C6D 

Analisador de 
expressões . 

FFBB 

HNTPL 

4CA6 

Anal í sador de 
expressões . 

FF70 

HEVAL 

4D09 

Ana 1 i sador de fatores . 

FF75 

HOKNO 

4F2C 

1 dem. 

FF7A 

HFING 

4F3E 

1 dem. 

FF7F 

HISMI 

51 G3 

”MIO$". 

FF84 

HWIDT 

51 CG 

"WIOTH”. 

FF89 

HLIST 

522E 

"LIST”. 

FF8E 

HBUFL 

5320 

Analisador de tokens. 

FF93 

HFROl 

543F 

Converte para inteiro. 

FF98 

HSCNE 

5514 

Apontador do número da 
1 i nha. 

FF9D 

HFRET 

67EE 

Oescritor temporário. 

FFA2 

HPTRG 

5EA9 

Pesquisador de 
variáveis. 

FFA7 

HPHYD 

148A 

PHYOIO do BIOS. 

FFAC 

HFORM 

148E 

FORMAT do BIOS. 

FFB1 

HERRO 

406F 

Manipulador de erros. 

FFB6 

HLPTO 

0850 

LPTOUT do BIOS. 

FFBB 

HLPTS 

0884 

LPTSTT do BIOS. 

FFC0 

HSGRE 

79CC 

"SCREEN" 

FFC5 

HPLAY 

73 E5 

"PLAY” 

tema . 

A área 

acima de &HFFCA 

não é usada pelo sis- 
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APÊNDICE IV - MONITOR ASSEMBL^R 

Para que você possa utilizar bem todas as 
listagens deste livro, fornecemos aqui um programa mo- 
nitor para auxiliá-lo na entrada e verificação dos da- 
dos. 0 monitor é uma adaptação do programa "Disassem- 
bler" publicado no "Aprofundando-se no MSX" . Agora, 
além de disassemblar a memória, pode-se manipulá-la de 
uma forma mais eficiente e poderosa. 

Os novos comandos do monitor sãO: 

D XXXX: lista 0 conteúdo da memória em hexa- 
decimal a partir do endereço XXXX. O valor XXXX é um 
número em decimal (para entrá-lo em HEX. use &H). A 
listagem prossegue pressionando-se qualquer tecla. ESC 
aborta. 


M XXXX; edita os bytes da memória a partir de 
XXXX. A tecla RETURN avança um byte. BS retorna e ESC 
aborta. Para alterar o byte corrente, entre um número 
em HEX (00 a FF). 

L XXXX: lista 0 conteúdo da memória a partir 
de XXXX em mnemónicos ZB0 ( d i sassemb I er ) . ESC aborta. 

A digitação do monitor pode ser bem simplifi- 
cada se você já possui o programa Oisassembler grava- 
do. Basta renumerá-lo, alterar as linhas iniciais e 
incluir as linhas restantes do monitor (figura IV. 1). 
Recomenda-se fazer uma boa gravação do monitor pois 
este será muito útil durante o decorrer do livro. Se 
você não possui o Oisassembler, digite todo o programa 
da figura IV.1 

FIGURA IV. 1 - Monitor Asseabler 

1000 CLS:PRINT "Monitor MSX i986":PRINT 
"Milton Maldonado Jr." 

1010 PRINT:LINE INPUT ">";A%:IF LEN(AS) 

=0 THEN 1010 

1020 C*=MID1(AS,1,1):IF C%="L" THEN 113 
0 ELSE IF CS="D" THEN 1030 ELSE IF C%=" 

M" THEN 1060 ELSE BEEP:PRINT "?"?:GOTO 
1010 

1030 E=VAL(MIDS<A*,2) ) 

1040 FOR J=1 TO 8:PRINT R IGHT4 < "0000"+H 
EXÍ<E),4>?" "jsFOR 1=0 TO 7:PRINT RIGH 
TÍ("00"+HEXÍ(PEEK<I+E> > ,2) ;" ";:NEXT I: 
PRINT:E=E+8:NEXT J 
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Í050 I4=INPUT4(í ):IF IÍ=CHR4<27) THEN í 
0i0 ELSE PRINT:G0T0 í040 
Í060 E=VAL(MIDÍ <A%,2) ) 

Í070 PRINT:PRINT R IGHTÍ ( "0000"+HEXÍ ( E ) , 
4) "jRIGHTÍ ("00"+HEX4<PEEK (E) ) ,2) 

Í080 HS="":FOR I=í TO 2 

1090 I®=INPUT*(í ) :IF I=i THEN IF I*=CHR 
Ti(i3) THEN E==E+í:GOTO 1070 ELSE IF IÍ=C 
HRÍ<8> THEN E=E-l:GOTO 1070 
1100 IF IÍ=CHRÍ<27) THEN PRINT:GOTO 101 
0 

1110 IF lí>="0" AND Ií<="9" OR I*>="A" 
AND IÍ<="F" THEN 1120 ELSE 1090 
1120 HS=H%+IÍB:PRINT I%?:NEXT l:POKE E,0 
AL<"&H"+H4> :E=E+l:GOTO 1070 
1130 E=0AL<MID5<A*,2) ) 

1140 REST0RE:F0R 1=0 TO 7:READ A%<I),B* 
(I):NEXT I;FOR 1=0 TO 3sREAD C*(I>,E*<I 
):NEXT I:FOR 1=0 TO 7:READ DÍ(I),F*(I)s 
NEXT I:READ Gí < 0 ) , G% < 1 ) , Gí ( 2 ) , H* < 0 ) , H® ( 
1) ,H®(2> ,I®(0) ,I®(1) ,J®(0) ,JÍ(1) 

1150 FOR K=i TO 20:C=PEEK(E) 

1160 PRINT USING "«««««"; E PR INT " 
sGOSUB 1190:IF F>0 THEN 1=1+1 
1170 PRINT TAB<22);:F0R X=0 TO I-1:I*=H 
EXÍ(PEEK(X+E) ) :IF LEN(I®)<2 THEN I®=:"0" 
+ 1 ® 

1180 PRINT I®?" "?:NEXT X s PR INT : E=E + I : N 
EXT K:PRINT:I®=INPUT®(1) :IF I®=CHR®(27) 
THEN 1010 ELSE 1150 

Ü90 ' 

SEPARA GRUPOS 


1200 F=0:IF C=221 THEN F=1 ELSE IF C=25 
,3 THEN F=2 

1210 C®(2)="HL":IF F=1 THEN C®(2)="IX" 
ELSE IF F=2 THEN C®(2)="IY." 

1220 IF C=203 THEN 1740 ELSE IF C=237 T 
HEN 1800 

1230 IF F>0 AND PEEK ( E+1 ) =203 THEN 1740 
1240 IF F>0 THEN C=PEEK(E+1> 



Í250 


j 


COMANDOS DIRETOS 


Í260 E4<2)=C*<2> 

Í270 I=í:IF C=39 THEN PRINT "DAA"?ELSE 
IF C=47 THEN PRINT "CPL"?ELSE IF C=249 
THEN PRINT "LD SP /' j C* < 2 > ; ELSE IF C=227 
THEN PRINT "EX ( SP ) , " ? C% ( 2 ) ? ELSE IF C- 
ii8 THEN PRINT "HALT"?ELSE IF C=20i THE 
N PRINT "RET";ELSE IF C==3i THEN PRINT " 
RRA"jELSE Í290 
1280 RETURN 

1290 IF C=235 THEN PRINT "EX DE,HL"jELS 
E IF C=8 THEN PRINT "EX AF,AF'"jELSE IF 
C=217 THEN PRINT "EXX";ELSE IF C=233 T 
HEN PRINT "JP <"?CÍ<2) ;")";ELSE IF C=0 
THEN PRINT "NOP";ELSE IF C-243 THEN PRI 
NT "DI";ELSE IF C~251 THEN PRINT "EI";E 
LSE 1310 
1300 RETURN 

1310 IF C=7 THEN PRINT "RLCA"?ELSE IF C 
==15 THEN PRINT "RRCA";ELSE IF C=23 THEN 
PRINT "RLA"pELSE IF C=55 THEN PRINT "S 
CF";ELSE IF C=63 THEN PRINT "CCF"jELSE 
1330 

1320 RETURN 

1330 I=2:IF C=211 THEN PRINT "OUT (";:G 
OSUB 1610SPRINT "),A";ELSE IF C=219 THE 
N PRINT "IN A,<"?:G0SUB 1610:PRINT")";E 
LSE 1350 
1340 RETURN 

1350 IF C=195 THEN PRINT "JP ";ELSE IF 
C=205 THEN PRINT "CALL ";ELSE 1380 
1360 PRINT MIDÍ (STR*(PEEK < E+1 ) +256*PEE 
K<E+2) ) ,2,5) ? sl=3:RETURN 
1370 RETURN 

1380 IF C=16 THEN PRINT "DJNZ "fELSE IF 
C=24 THEN PRINT "JR ";ELSE 1410 
1390 X=PEEK<E+1) :IF X<128 THEN Y=E+X+2 
ELSE Y=E+X-254 

1400 PRINT MID%(STR%(Y) ,2,5) ? : I=2:RETUR 
N 
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Í4Í0 IF OÍ27 AND C<i92 THEN X~C\8-i6:Y 
=C MOD 8:PRINT A«(X)|!:IF X=0 OR X==í OR 
X=3 THEN PRINT " A/'|iELSE PRINT " "?ELS 
E Í430 

Í420 PRINT B%<Y) ; sl==í :RETURN 
Í430 IF C\64>0 THEN 1570 
1440 IF C=34 THEN E==E+SGN ( F ) : PR INT "LD 
<";:G0SUB 1360: PR INT " ) , " j C% < 2 > ? : ELSE I 
F C==42 THEN E=E+SGN(F) :PRINT "LD ";C*<2 
:GOSUB 1360:PRINT ")";:ELSE 1460 
1450 E=E~SGN(F) :RETURN 

1460 IF C=50 THEN PRINT "LD ("?:GOSUB 1 
360:PRINT "),A"?ELSE IF C=58 THEN PRINT 
"LD A,("p:GOSUB 1360:PRINT ")";:RETURN 
ELSE 1480 
1470 I=3:RETURN 

1480 X=C MOD 8:IF X=4 THEN PRINT"INC"?E 
LSE IF X=5 THEN PR INT"DEC" y ELSE 1500 
1490 Y=C\8:PRINT" " y Bí ( Y ) y : 1=1 : RETURN 
1500 X=C MOD 16: IF X=3 THEN PRINT"INC " 
yELSE IF X=ll THEN PRINT"DEC "yELSE IF 
X=9 THEN PRINT"ADD " y C% ( 2 ) y " , " y ELSE 152 
0 

1510 X=C\16:PRINTCÍ (X) y :I=l:RETURN 

1520 IF C MOD 8=6 AND F=0 THEN PRINT "L 

D "yB*(C\8) y","y :G0T0 1610 

1530 IF C MOD 16=1 THEN E=E+SGN < F ) : PR IN 

T"LD "yC*<C\16)y","y:G0SUB 1360 ELSE 15 

50 

1540 E=E-SGN<F) :RETURN 

1550 IF C MOD 16=2 THEN PRINT "LD <"yC* 
<C\16) y") ,A"yELSE IF C MOD 16=10 THEN P 
RINT "LD A, ("yC%(C\16) y")"yELSE 1570 
1560 I=1:RETURN 

1570 IF C\32=l AND C MOD 8=0 THEN PRINT 
"JR "yDl(C\8-4) y","y :G0T0 1390 
1580 IF C\64<>3 THEN 1680 
1590 IF C MOD 806 THEN 1620 
1600 I=2:X=C\8-24:PRINTA5(X) y" "y:lF X< 
2 OR X=3 THEN PRINT"A,"y 

1610 PRINT MID%<STR%<PEEK(E+l>),2,3)y:R 
ETURN 



Í620 X=C MOD 8:IF X=i THEN PRINT "POP " 
jE%(C\í6~i2) ;ELSE IF X=5 THEN PRINT "Pü 
SH "?E%<C\í6~i2) j 

ÍÓ30 IF X=i OR X=5 THEN I=i:RETURN 
Í640 IF X=7 THEN PRINT"RST ";HEXí(C-i99 
) ;"H"; :l = í sRETURN 

.1.650 IF X=0 THEN PRINT "RET "|iD%(C\8-24 
) ; : I==í :RETURN 

1.660 IF X=2 THEN PRINT "JP ";ELSE PRINT 
"CALL "? 

1.670 PRINT Dí(C\8-24) :G0T0 Í360 

Í680 IF F=0 AND C\64=i THEN X=(C~64)\8: 
PRINT "LD "jB*(X) ? :X=(C-64> MOD 8:PRINT 
",";B4(X) p :l=í :RETURN 

1.690 I=2:C==PEEK<E + i) ;IF F>0 AND C MOD 8 
=6 AND 063 THEN PRINT "LD " ; B% ( C\8-8 ) y 
", (";C*(2) ;"+"j :E=E+i :G0SUB 16 1.0: PRINT 
ELSE 1710 
1700 E=E-l:RETURN 

1710 IF C\8=14 THEN E=E+1 SPRINT "LD ("; 
C*<2) sGOSUB 1610:PRINT ">,";BíB(C~l 

12); ELSE 1730 
1720 GOTO 1700 

1730 1=3: IF C=54 THEN PRINT "LD (";C*(2 
);"+"; :E=E+1:G0SUB 1610:PRINT "),";:E=E 
+l:GOSUB 1610:E=E~1 :GOTO 1720 ELSE 1960 

1740 ' 

COMANDOS APOS CBH 

1750 Z=l:IF F>0 THEN Z=3 
1760 I=2:C=PEEK(E+Z) :IF C<64 AND F=0 TH 
ENPRINT F4(C\8);" ";B!B(C MOD 8);:RETURN 
1770 I=3:IF C<64 AND F>0 AND <C-6) MOD 
8=0 THEN PRINT F*(C\8);" C« ( 2 : 

E=E+1 sGOSUB 1610: PRINT")"; : E=E-1 : RETURN 
1780 C=PEEK<E+Z) :IF F=0 THEN PRINTGKCN 
64~1);" ";CHRÍB(48+(C\8) MOD 8);",";B4<C 
MOD 8) ; : I=2:RETURN 

1790 IF (C-6) MOD 8=0 THEN PRINTGS<C\64 
-1);" ";CHR4(48+<C\8) MOD 8) (";Cí <2) 
;"+"; :E=E+1 :G0SUB 1610:PRINT")"; :E=E~1 : 
RETURN ELSE 1960 
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Í800 


COMANDOS APOS EDH 


Í8Í0 I=2:C=PEEK(E+í ) :IF C<64 OR C=22í O 
R C=253 THEN 19Ó0 ELSE IF C>i87 THEN Í9 
20 

Í820 IF C=70 THEN PRINT "IM 0";ELSE IF 
C=86 THEN PRINT "IM í";ELSE IF C=94 THE 
N PRINT "IM 2"?ELSE IF C=77 THEN PRINT 
"RETI";ELSE IF C==69 THEN PRINT "RETN"jE 
LSE IF C=Í03 THEN PRINT "RRD";ELSE IF C 
= íii THEN PRINT "RLD"?ELSE 1.840 
1.830 RETURN 

1840 IF C=7í THEN PRINT "LD I,A";ELSE I 
F C=79 THEN PRINT "LD R, A"; ELSE IF C=87 
THEN PRINT "LD A,I"jELSE IF C=95 THEN 
PRINT "LD A,R"jELSE 1860 
1850 RETURN 

1860 HS(3)="0UT"s IF 0175 THEN HS(3)="0 
T" 

1870 IF 0159 AND C MOD 8<4 THEN PRINTH 
%<C MOD 4)jIÍ<(C MOD 16 ) \8 > ? J% ( < C-160 > \ 
16) ; sRETURN 

1880 IF C\64>1 THEN 1960 ELSE IF C MOD 
8>1 THEN 1920 

1890 IF C=112 OR C~li3 THEN 1960 
1900 IF C MOD 8=0 THEN PRINT "IN ";B*<C 
\8~8> (0";ELSE PRINT "OLJT <0,";B*(C 
\ 8 - 8 > ? 

1910 RETURN 

1920 X=C MOD 16:Y=C\16~4:IF X=i0 THEN P 
RINT"ADC HL,";C*<Y) ;ELSE IF X=2 THEN PR 
INT "SBC HL,"|!CS<Y) pELSE 1940 
1930 RETURN 

1940 IF X=3 THEN PRINT "LD <";:E=E+i:GO 
SUB i360:E=E~i :PRINT " ) , " ; CS < C\i6-4 ) ? EL 
SE IF X=ll THEN PRINT "LD " ; CS ( C\i6-4 ) ; 

:E=E+i:GOSUB i360:E=E~l :PRINT")";E 
LSE 1960 
1950 I=4:RETURN 
1960 PRINT "Z80 ?";:RETURN 
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DADOS DA MATRIZ ALFA 


Í980 DATA ADD,B,ADC,C,SUB,D,SBC,E,AND,H 

,XOR,L,OR, <HL) ,CP,A 

Í990 DATA BC, BC, DE, DE, HL, HL, SP, AF 

2000 DATA NZ,RLC,Z,RRC,NC,RL,C,RR,PO,SL 

A,PE,SRA,P,SLI,M,SRL 

20Í0 DATA BIT,RES,SET 

2020 DATA LD,CP,IN,I,D, ,R 


DIGITANDO UMA LISTAGEM EM ASSEMBLY 

Vamos ver agora um exemplo de como entrar uma 
listagem do livro na memória para executá-la. Para is- 
to. carregue o monitor na memória e digite RUN. Deverá 
aparecer uma apresentação e o sinal indicando que 

0 monitor aguarda um comando. 

Observe na figura IV. 2 o formato das lista- 
gens dos programas deste livro. 


FIGURA IV. 2 - Exciplo de Listagee 
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Para entrá-lo no monitor, digitei 
M 60000 
ou 

M &HEA60 

O monitor deverá responder: 

e::a60 00 

Digite, então, o primeiro hexadecimal que 
forma o código objeto (AF), e então teremos: 

EA60 00 AF 
EA6i 00 

Continue, então, com CO, AS, 00, etc e a tela 
deverá ficar como mostra a figura IV. 3 


FIGURA IV.3 - Exeiplo de 

USO do lonítor 

EA60 

00 

AF 

EA6Í 

00 

CD 

EA62 

00 

A 2 

EA63 

00 

00 

EA64 

00 

3C 

EAÓ5 

00 

A7 

EA66 

00 

20 

EAÓ7 

00 

F9 

EAÓ8 

00 



Ao final do processo, digite ESC para sair do modo M. 
Para testar o programa, entre CTRL+STOP e execute-o 
comandando (no caso específico deste programa) 

DEFUSR==600005X-USR<0) . 

Se você possuir um Assemblador como o Coral 
ASM ou 0 HOTASM, deverão ser digitados os números das 
linhas (característica que as listagens do livro não 
possuem) , os labeis, os mnemónicos ou macrocomandos e 
se você desejar os comentários. 

Caso 0 seu compilador possua sintaxe seme- 
lhante à do M80, devem ser digitados apenas os mnemó- 
nicos ou macrocomandos e, se você desejar, os comentá- 
rios. 
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OUTRAS PUBLICAÇÕES SOBRE MSX 
DA EDITORA ALEPH 

APROFUNDANDO-SE NO MSX 

Piazzi, Maldonado. Oliveira et al.- Para quem quer co- 
nhecer todos os detalhes da máquina: como usar os 32Kb 
de RAM escondidos pela ROM. como redefinir caracteres, 
como usar o SOUND. como tirar cópias de telas gráficas 
na impressora, como destravar fitas. Todos os detalhes 
da arquitetura do MSX. o BIOS e as variáveis do siste- 
ma comentadas e um poderoso programa Disassembler. 

TABELA DE MNEMÓNICOS Z80 
Uma tabela co todos os Mnemónicos do microprocessador 
280 (o microprocessador do MSX) relacionados com seus 
códigos hexadecimais. Indispensável para quem está co- 
meçando a programar em linguagem de máquina e não dis- 
põe de um programa Assembler. 

USANDO O DISK DRIVE NO MSX 
Rubens Pereira Silva Jr- O DISK BASIC, o MSX D.O.S. e 
0 CP/M para o MSX comentados detalhadamente. Desde a 
instalação até os usos mais sofisticados. Completando 
a obra. um dicionário de todos os comandos e funções 
desses tris sistemas operacionais. Indispensável para 
quem tem um drive ! 

SISTEMA DE DISCO PARA MSX 
Oliveira e Pereira- Como instalar a interface CDX-2 u- 
tilizando o sistema operacional residente em sua ROM . 
0 poderoso BASIC DE DISCO. Como tirar o máximo provei- 
to do SOLX-DOS. sistema operacional totalmente compatí- 
vel com 0 MSX D.O.S. e semi -compat í ve I com o CP/M. Co- 
mo converter programas instalados em CP-500 e em sis- 
tema 700 para o MSX e vice-versa. Complementando a o- 
bra. um detalhado dicionário de todos os comandos e 
funções, repleto de exemplos didáticos e aplicações. 
Uma obra importantíssima para quem quer tirar o máximo 
proveito de seu sistema MSX! 

COLECSO DE PROGRAMAS PARA MSX VOL-I 
Oliveira et al.- Uma coletânea de programas para o u- 
suário principiante em MSX. Jogos, músicas, desenhos e 
aplicativos úteis apresentados de modo simples e di- 
dático. Todos os programas têm instruções de digitação 
e uma análise detalhada, explicando praticamente linha 
por linha o seu funcionamento. Todos os programas fo- 
ram testados e funcionam! A maneira mais fácil e di- 
vertida de entrar no maravilhoso mundo dos micros MSX. 
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COLEÇSO DE PROGRAMAS PARA MSX VOL . I I 
Oliveira et al.- Programas com rotinas em BASIC e Lin- 
guagem de Máquina. Jogos de acão e inteligência, pro- 
gramas didáticos, programas profissionais de estatís- 
tica. matemática financeira e desenho de perspectivas, 
utilitários para uso da impressora e gravador cassete. 
E ainda um capítulo especial mostrando como montar 
passo a passo, um jogo da açlo. o ISCAI JEGUE, uma pa- 
rodia bem humorada do famos SKY JAGUARi 

JOGOS DE HABILIDADE PARA MSX 
Dias. Guazelti. Martins e Sung- Coletânea de jogos de 
açao e inteligência de nível profissional, usando sem- 
pre que necessário, os recursos da Linguagem de Máqui- 
na. Asteróides, Coelho Maluco, Alcatraz, Gincana, são 
alguns jogos listados neste livro com suas instruções 
de como utilizá-los. A maneira mais econômica de obter 
software profissional de alta qualidade, divertindo-se 
ao montar uma vasta biblioteca de programas. 

LINGUAGEM BASIC MSX 

Uma verdadeira enciclopédia do BASIC MSX onde todos os 
comandos e funções do BASIC residente são listados em 
ordem al fabética.Para cada comando é dada a explicação 
do que ele faz, sua sintaxe e um exemplo elucidativo. 
Obra de consulta, indispensável para quem programa em 
BASIC MSX, adotada pela GRADIENTE para acompanhar seu 
microcomputador Expert. 

HOTLOGO — Primeiros Passos 
Godoy, Lacerda, Lepíscopo e Mendes- Livro dedicado às 
crianças que começam a entrar no mundo maravilhoso da 
computação. A Linguagem utilizada é o HOTLOGO, dispo- 
nível em cartucho para MSX, uma das versões mais com- 
pletas da linguagem LOGO. 

HOTDATA - Gerenciador de Dados 
Roberto Massaru Watanabe- O gerenciamento de um banco 
de dados explicado de uma maneira didática para quem 
utiliza 0 cartucho HOTDATA para MSX. 

HOTWORD — Processador de Textos 
Roberto Massaru Watanabe- 0 processamento de textos no 
micro, explicado de uma maneira didática para quem usa 
0 cartucho HOTWORD para MSX. 

HOTPLAN - Planilha de Cálculos 
Roberto Massaru Watanabe- Uma das melhores planilhas 
eletrônicas, explicada com exemplos e figuras para os 
que utilizam o cartucho HOTPLAN para HOTBIT. 
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DOMINANDO O EXPERT 

Os primeiros passos na programação e utilização do mi- 
crocomputador Expert com explicações didática para os 
usuários principiantes. Obra adotada pela GRADIENTE. 

RESUMO DE OPERAÇÕES DO EXPERT 
Tabela de consulta rápida com todos os comandos e fun- 
ções do BASIC MSX. Complemento extremamente ,útil da o- 
bra "LINGUAGEM BASIC MSX" para ser deixado constante- 
mente ao lado do teclado de seu MSX. 


Para receber mais informações sobre nossos livros e 
ganhar uma assinatura gratuita de nosso boletim infor- 
mativo, contendo dicas e programas para MSX, envie seu 
nome e endereço completos (inclusive CEP!) para 

Editora Aleph 
Caixa Postal S0.707 
01498 São Paulo SP 


A composição deste livro foi feita numa Mônica Plus 
6030 da ELEBRA, utilizando-se fontes alternativas para 
MSX. Esta mesma impressora foi utilizada para impres- 
são de todas as listagens e figuras utilizando os pro- 
gramas de cópia gráfica descritos neste livro e no "A- 
PROFUNDANDO-SE NO MSX" desta editora. 

elebra informática 
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Gráfica Palas Athena 
Associação "Palas Athena" do Brasil 
Rua José Bento, 384 
Fone: 279-6288 - CEP 01 523 
Cambucí — São Paulo 


PROGRAMAÇÃO 
AVANÇADA ’ 

EM MSX 


Este é um livro para aqueles que gostam de extrair de 
uma máquina tudo o que ela tem a oferecer. 

Todos os segredos do hardware dos micros MSX são 
comentados e os truques e macetes para controlá-los atra- 
vés da Linguagem de Máquina do Z80 são exaustivamente 
ensinados. 

Os autores, Henrique, Milton e Paulo, que já trabalha- 
ram juntos no "APROFUNDANDO-SE NO MSX", chegam 
agora ao limite de conhecimento desses micros, mantendo 
contudo, a mesma clareza e inteligibilidade de seus textos 
anteriores. 

Esta é mais uma obra indispensável na biblioteca e 
(principalmente) na mente dos programadores que querem 
usar todos os recursos dos micros MSX! 


HENRIQUE DE FIGUEREDO LUZ 
MILTON MALDONADO JR. 

PAULO EDUARDO GUIMARÃES ROSSETTO 




